<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><link rel="stylesheet" type="text/css" href="style.css" /><script type="text/javascript" src="highlight.js"></script></head><body><pre><span id="local-6989586621680884449"><span id="local-6989586621680884450"><span id="local-6989586621680884451"><span id="local-6989586621680884452"><span id="local-6989586621680884453"><span id="local-6989586621680884454"></span></span></span></span></span></span><span class="hs-comment">{-
(c) The University of Glasgow 2006
(c) The GRASP/AQUA Project, Glasgow University, 1992-1998

\section[HsLit]{Abstract syntax: source-language literals}
-}</span><span>
</span><span id="line-7"></span><span>
</span><span id="line-8"></span><span class="hs-pragma">{-# LANGUAGE CPP, DeriveDataTypeable #-}</span><span>
</span><span id="line-9"></span><span class="hs-pragma">{-# LANGUAGE TypeSynonymInstances #-}</span><span>
</span><span id="line-10"></span><span class="hs-pragma">{-# LANGUAGE StandaloneDeriving #-}</span><span>
</span><span id="line-11"></span><span class="hs-pragma">{-# LANGUAGE FlexibleContexts #-}</span><span>
</span><span id="line-12"></span><span class="hs-pragma">{-# LANGUAGE FlexibleInstances #-}</span><span>
</span><span id="line-13"></span><span class="hs-pragma">{-# LANGUAGE UndecidableInstances #-}</span><span> </span><span class="hs-comment">-- Wrinkle in Note [Trees That Grow]</span><span>
</span><span id="line-14"></span><span>                                      </span><span class="hs-comment">-- in module GHC.Hs.Extension</span><span>
</span><span id="line-15"></span><span class="hs-pragma">{-# LANGUAGE ConstraintKinds #-}</span><span>
</span><span id="line-16"></span><span class="hs-pragma">{-# LANGUAGE TypeFamilies #-}</span><span>
</span><span id="line-17"></span><span>
</span><span id="line-18"></span><span class="hs-keyword">module</span><span> </span><span class="hs-identifier">GHC.Hs.Lit</span><span> </span><span class="hs-keyword">where</span><span class="hs-cpp">

#include &quot;HsVersions.h&quot;
</span><span>
</span><span id="line-22"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="GHC.Prelude.html"><span class="hs-identifier">GHC.Prelude</span></a></span><span>
</span><span id="line-23"></span><span>
</span><span id="line-24"></span><span class="hs-keyword">import</span><span> </span><span class="hs-pragma">{-# SOURCE</span><span> </span><span class="hs-pragma">#-}</span><span> </span><span class="annot"><a href="GHC.Hs.Expr.html"><span class="hs-identifier">GHC.Hs.Expr</span></a></span><span class="hs-special">(</span><span> </span><span class="annot"><a href="GHC.Hs.Expr.html#HsExpr"><span class="hs-identifier">HsExpr</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Hs.Expr.html#pprExpr"><span class="hs-identifier">pprExpr</span></a></span><span> </span><span class="hs-special">)</span><span>
</span><span id="line-25"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="GHC.Types.Basic.html"><span class="hs-identifier">GHC.Types.Basic</span></a></span><span>
</span><span id="line-26"></span><span>   </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="GHC.Types.Basic.html#IntegralLit"><span class="hs-identifier">IntegralLit</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Types.Basic.html#FractionalLit"><span class="hs-identifier">FractionalLit</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Types.Basic.html#negateIntegralLit"><span class="hs-identifier">negateIntegralLit</span></a></span><span>
</span><span id="line-27"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Types.Basic.html#negateFractionalLit"><span class="hs-identifier">negateFractionalLit</span></a></span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Types.Basic.html#SourceText"><span class="hs-identifier">SourceText</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Types.Basic.html#pprWithSourceText"><span class="hs-identifier">pprWithSourceText</span></a></span><span>
</span><span id="line-28"></span><span>   </span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Types.Basic.html#PprPrec"><span class="hs-identifier">PprPrec</span></a></span><span class="hs-special">(</span><span class="hs-glyph">..</span><span class="hs-special">)</span><span class="hs-special">,</span><span> </span><span class="annot"><a href="GHC.Types.Basic.html#topPrec"><span class="hs-identifier">topPrec</span></a></span><span> </span><span class="hs-special">)</span><span>
</span><span id="line-29"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="GHC.Core.Type.html"><span class="hs-identifier">GHC.Core.Type</span></a></span><span>
</span><span id="line-30"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="GHC.Utils.Outputable.html"><span class="hs-identifier">GHC.Utils.Outputable</span></a></span><span>
</span><span id="line-31"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="GHC.Data.FastString.html"><span class="hs-identifier">GHC.Data.FastString</span></a></span><span>
</span><span id="line-32"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="GHC.Hs.Extension.html"><span class="hs-identifier">GHC.Hs.Extension</span></a></span><span>
</span><span id="line-33"></span><span>
</span><span id="line-34"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../bytestring/src/Data.ByteString.html#"><span class="hs-identifier">Data.ByteString</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="../../bytestring/src/Data.ByteString.Internal.html#ByteString"><span class="hs-identifier">ByteString</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-35"></span><span class="hs-keyword">import</span><span> </span><span class="annot"><a href="../../base/src/Data.Data.html#"><span class="hs-identifier">Data.Data</span></a></span><span> </span><span class="hs-keyword">hiding</span><span> </span><span class="hs-special">(</span><span> </span><span class="annot"><a href="../../base/src/Data.Data.html#Fixity"><span class="hs-identifier">Fixity</span></a></span><span> </span><span class="hs-special">)</span><span>
</span><span id="line-36"></span><span>
</span><span id="line-37"></span><span class="hs-comment">{-
************************************************************************
*                                                                      *
\subsection[HsLit]{Literals}
*                                                                      *
************************************************************************
-}</span><span>
</span><span id="line-44"></span><span>
</span><span id="line-45"></span><span class="hs-comment">-- Note [Literal source text] in GHC.Types.Basic for SourceText fields in</span><span>
</span><span id="line-46"></span><span class="hs-comment">-- the following</span><span>
</span><span id="line-47"></span><span class="hs-comment">-- Note [Trees that grow] in GHC.Hs.Extension for the Xxxxx fields in the following</span><span>
</span><span id="line-48"></span><span class="hs-comment">-- | Haskell Literal</span><span>
</span><span id="line-49"></span><span class="hs-keyword">data</span><span> </span><span id="HsLit"><span class="annot"><a href="GHC.Hs.Lit.html#HsLit"><span class="hs-identifier hs-var">HsLit</span></a></span></span><span> </span><span id="local-6989586621680884557"><span class="annot"><a href="#local-6989586621680884557"><span class="hs-identifier hs-type">x</span></a></span></span><span>
</span><span id="line-50"></span><span>  </span><span class="hs-glyph">=</span><span> </span><span id="HsChar"><span class="annot"><a href="GHC.Hs.Lit.html#HsChar"><span class="hs-identifier hs-var">HsChar</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#XHsChar"><span class="hs-identifier hs-type">XHsChar</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884557"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-comment">{- SourceText -}</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span>
</span><span id="line-51"></span><span>      </span><span class="hs-comment">-- ^ Character</span><span>
</span><span id="line-52"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="HsCharPrim"><span class="annot"><a href="GHC.Hs.Lit.html#HsCharPrim"><span class="hs-identifier hs-var">HsCharPrim</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#XHsCharPrim"><span class="hs-identifier hs-type">XHsCharPrim</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884557"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-comment">{- SourceText -}</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Char</span></span><span>
</span><span id="line-53"></span><span>      </span><span class="hs-comment">-- ^ Unboxed character</span><span>
</span><span id="line-54"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="HsString"><span class="annot"><a href="GHC.Hs.Lit.html#HsString"><span class="hs-identifier hs-var">HsString</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#XHsString"><span class="hs-identifier hs-type">XHsString</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884557"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-comment">{- SourceText -}</span><span> </span><span class="annot"><a href="GHC.Data.FastString.html#FastString"><span class="hs-identifier hs-type">FastString</span></a></span><span>
</span><span id="line-55"></span><span>      </span><span class="hs-comment">-- ^ String</span><span>
</span><span id="line-56"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="HsStringPrim"><span class="annot"><a href="GHC.Hs.Lit.html#HsStringPrim"><span class="hs-identifier hs-var">HsStringPrim</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#XHsStringPrim"><span class="hs-identifier hs-type">XHsStringPrim</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884557"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-comment">{- SourceText -}</span><span> </span><span class="hs-glyph">!</span><span class="annot"><a href="../../bytestring/src/Data.ByteString.Internal.html#ByteString"><span class="hs-identifier hs-type">ByteString</span></a></span><span>
</span><span id="line-57"></span><span>      </span><span class="hs-comment">-- ^ Packed bytes</span><span>
</span><span id="line-58"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="HsInt"><span class="annot"><a href="GHC.Hs.Lit.html#HsInt"><span class="hs-identifier hs-var">HsInt</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#XHsInt"><span class="hs-identifier hs-type">XHsInt</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884557"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">)</span><span>  </span><span class="annot"><a href="GHC.Types.Basic.html#IntegralLit"><span class="hs-identifier hs-type">IntegralLit</span></a></span><span>
</span><span id="line-59"></span><span>      </span><span class="hs-comment">-- ^ Genuinely an Int; arises from</span><span>
</span><span id="line-60"></span><span>      </span><span class="hs-comment">-- &quot;GHC.Tc.Deriv.Generate&quot;, and from TRANSLATION</span><span>
</span><span id="line-61"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="HsIntPrim"><span class="annot"><a href="GHC.Hs.Lit.html#HsIntPrim"><span class="hs-identifier hs-var">HsIntPrim</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#XHsIntPrim"><span class="hs-identifier hs-type">XHsIntPrim</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884557"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-comment">{- SourceText -}</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span>
</span><span id="line-62"></span><span>      </span><span class="hs-comment">-- ^ literal @Int#@</span><span>
</span><span id="line-63"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="HsWordPrim"><span class="annot"><a href="GHC.Hs.Lit.html#HsWordPrim"><span class="hs-identifier hs-var">HsWordPrim</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#XHsWordPrim"><span class="hs-identifier hs-type">XHsWordPrim</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884557"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-comment">{- SourceText -}</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span>
</span><span id="line-64"></span><span>      </span><span class="hs-comment">-- ^ literal @Word#@</span><span>
</span><span id="line-65"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="HsInt64Prim"><span class="annot"><a href="GHC.Hs.Lit.html#HsInt64Prim"><span class="hs-identifier hs-var">HsInt64Prim</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#XHsInt64Prim"><span class="hs-identifier hs-type">XHsInt64Prim</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884557"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-comment">{- SourceText -}</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span>
</span><span id="line-66"></span><span>      </span><span class="hs-comment">-- ^ literal @Int64#@</span><span>
</span><span id="line-67"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="HsWord64Prim"><span class="annot"><a href="GHC.Hs.Lit.html#HsWord64Prim"><span class="hs-identifier hs-var">HsWord64Prim</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#XHsWord64Prim"><span class="hs-identifier hs-type">XHsWord64Prim</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884557"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-comment">{- SourceText -}</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span>
</span><span id="line-68"></span><span>      </span><span class="hs-comment">-- ^ literal @Word64#@</span><span>
</span><span id="line-69"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="HsInteger"><span class="annot"><a href="GHC.Hs.Lit.html#HsInteger"><span class="hs-identifier hs-var">HsInteger</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#XHsInteger"><span class="hs-identifier hs-type">XHsInteger</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884557"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-comment">{- SourceText -}</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Integer</span></span><span> </span><span class="annot"><a href="GHC.Core.TyCo.Rep.html#Type"><span class="hs-identifier hs-type">Type</span></a></span><span>
</span><span id="line-70"></span><span>      </span><span class="hs-comment">-- ^ Genuinely an integer; arises only</span><span>
</span><span id="line-71"></span><span>      </span><span class="hs-comment">-- from TRANSLATION (overloaded</span><span>
</span><span id="line-72"></span><span>      </span><span class="hs-comment">-- literals are done with HsOverLit)</span><span>
</span><span id="line-73"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="HsRat"><span class="annot"><a href="GHC.Hs.Lit.html#HsRat"><span class="hs-identifier hs-var">HsRat</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#XHsRat"><span class="hs-identifier hs-type">XHsRat</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884557"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">)</span><span>  </span><span class="annot"><a href="GHC.Types.Basic.html#FractionalLit"><span class="hs-identifier hs-type">FractionalLit</span></a></span><span> </span><span class="annot"><a href="GHC.Core.TyCo.Rep.html#Type"><span class="hs-identifier hs-type">Type</span></a></span><span>
</span><span id="line-74"></span><span>      </span><span class="hs-comment">-- ^ Genuinely a rational; arises only from</span><span>
</span><span id="line-75"></span><span>      </span><span class="hs-comment">-- TRANSLATION (overloaded literals are</span><span>
</span><span id="line-76"></span><span>      </span><span class="hs-comment">-- done with HsOverLit)</span><span>
</span><span id="line-77"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="HsFloatPrim"><span class="annot"><a href="GHC.Hs.Lit.html#HsFloatPrim"><span class="hs-identifier hs-var">HsFloatPrim</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#XHsFloatPrim"><span class="hs-identifier hs-type">XHsFloatPrim</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884557"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">)</span><span>   </span><span class="annot"><a href="GHC.Types.Basic.html#FractionalLit"><span class="hs-identifier hs-type">FractionalLit</span></a></span><span>
</span><span id="line-78"></span><span>      </span><span class="hs-comment">-- ^ Unboxed Float</span><span>
</span><span id="line-79"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="HsDoublePrim"><span class="annot"><a href="GHC.Hs.Lit.html#HsDoublePrim"><span class="hs-identifier hs-var">HsDoublePrim</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#XHsDoublePrim"><span class="hs-identifier hs-type">XHsDoublePrim</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884557"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">)</span><span> </span><span class="annot"><a href="GHC.Types.Basic.html#FractionalLit"><span class="hs-identifier hs-type">FractionalLit</span></a></span><span>
</span><span id="line-80"></span><span>      </span><span class="hs-comment">-- ^ Unboxed Double</span><span>
</span><span id="line-81"></span><span>
</span><span id="line-82"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="XLit"><span class="annot"><a href="GHC.Hs.Lit.html#XLit"><span class="hs-identifier hs-var">XLit</span></a></span></span><span> </span><span class="hs-glyph">!</span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#XXLit"><span class="hs-identifier hs-type">XXLit</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884557"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-83"></span><span>
</span><span id="line-84"></span><span class="hs-keyword">type</span><span> </span><span class="hs-keyword">instance</span><span> </span><span id="XHsChar"><span class="annot"><a href="GHC.Hs.Extension.html#XHsChar"><span class="hs-identifier hs-var">XHsChar</span></a></span></span><span>       </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#GhcPass"><span class="hs-identifier hs-type">GhcPass</span></a></span><span> </span><span class="annot"><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="GHC.Types.Basic.html#SourceText"><span class="hs-identifier hs-type">SourceText</span></a></span><span>
</span><span id="line-85"></span><span class="hs-keyword">type</span><span> </span><span class="hs-keyword">instance</span><span> </span><span id="XHsCharPrim"><span class="annot"><a href="GHC.Hs.Extension.html#XHsCharPrim"><span class="hs-identifier hs-var">XHsCharPrim</span></a></span></span><span>   </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#GhcPass"><span class="hs-identifier hs-type">GhcPass</span></a></span><span> </span><span class="annot"><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="GHC.Types.Basic.html#SourceText"><span class="hs-identifier hs-type">SourceText</span></a></span><span>
</span><span id="line-86"></span><span class="hs-keyword">type</span><span> </span><span class="hs-keyword">instance</span><span> </span><span id="XHsString"><span class="annot"><a href="GHC.Hs.Extension.html#XHsString"><span class="hs-identifier hs-var">XHsString</span></a></span></span><span>     </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#GhcPass"><span class="hs-identifier hs-type">GhcPass</span></a></span><span> </span><span class="annot"><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="GHC.Types.Basic.html#SourceText"><span class="hs-identifier hs-type">SourceText</span></a></span><span>
</span><span id="line-87"></span><span class="hs-keyword">type</span><span> </span><span class="hs-keyword">instance</span><span> </span><span id="XHsStringPrim"><span class="annot"><a href="GHC.Hs.Extension.html#XHsStringPrim"><span class="hs-identifier hs-var">XHsStringPrim</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#GhcPass"><span class="hs-identifier hs-type">GhcPass</span></a></span><span> </span><span class="annot"><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="GHC.Types.Basic.html#SourceText"><span class="hs-identifier hs-type">SourceText</span></a></span><span>
</span><span id="line-88"></span><span class="hs-keyword">type</span><span> </span><span class="hs-keyword">instance</span><span> </span><span id="XHsInt"><span class="annot"><a href="GHC.Hs.Extension.html#XHsInt"><span class="hs-identifier hs-var">XHsInt</span></a></span></span><span>        </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#GhcPass"><span class="hs-identifier hs-type">GhcPass</span></a></span><span> </span><span class="annot"><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="GHC.Hs.Extension.html#NoExtField"><span class="hs-identifier hs-type">NoExtField</span></a></span><span>
</span><span id="line-89"></span><span class="hs-keyword">type</span><span> </span><span class="hs-keyword">instance</span><span> </span><span id="XHsIntPrim"><span class="annot"><a href="GHC.Hs.Extension.html#XHsIntPrim"><span class="hs-identifier hs-var">XHsIntPrim</span></a></span></span><span>    </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#GhcPass"><span class="hs-identifier hs-type">GhcPass</span></a></span><span> </span><span class="annot"><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="GHC.Types.Basic.html#SourceText"><span class="hs-identifier hs-type">SourceText</span></a></span><span>
</span><span id="line-90"></span><span class="hs-keyword">type</span><span> </span><span class="hs-keyword">instance</span><span> </span><span id="XHsWordPrim"><span class="annot"><a href="GHC.Hs.Extension.html#XHsWordPrim"><span class="hs-identifier hs-var">XHsWordPrim</span></a></span></span><span>   </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#GhcPass"><span class="hs-identifier hs-type">GhcPass</span></a></span><span> </span><span class="annot"><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="GHC.Types.Basic.html#SourceText"><span class="hs-identifier hs-type">SourceText</span></a></span><span>
</span><span id="line-91"></span><span class="hs-keyword">type</span><span> </span><span class="hs-keyword">instance</span><span> </span><span id="XHsInt64Prim"><span class="annot"><a href="GHC.Hs.Extension.html#XHsInt64Prim"><span class="hs-identifier hs-var">XHsInt64Prim</span></a></span></span><span>  </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#GhcPass"><span class="hs-identifier hs-type">GhcPass</span></a></span><span> </span><span class="annot"><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="GHC.Types.Basic.html#SourceText"><span class="hs-identifier hs-type">SourceText</span></a></span><span>
</span><span id="line-92"></span><span class="hs-keyword">type</span><span> </span><span class="hs-keyword">instance</span><span> </span><span id="XHsWord64Prim"><span class="annot"><a href="GHC.Hs.Extension.html#XHsWord64Prim"><span class="hs-identifier hs-var">XHsWord64Prim</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#GhcPass"><span class="hs-identifier hs-type">GhcPass</span></a></span><span> </span><span class="annot"><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="GHC.Types.Basic.html#SourceText"><span class="hs-identifier hs-type">SourceText</span></a></span><span>
</span><span id="line-93"></span><span class="hs-keyword">type</span><span> </span><span class="hs-keyword">instance</span><span> </span><span id="XHsInteger"><span class="annot"><a href="GHC.Hs.Extension.html#XHsInteger"><span class="hs-identifier hs-var">XHsInteger</span></a></span></span><span>    </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#GhcPass"><span class="hs-identifier hs-type">GhcPass</span></a></span><span> </span><span class="annot"><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="GHC.Types.Basic.html#SourceText"><span class="hs-identifier hs-type">SourceText</span></a></span><span>
</span><span id="line-94"></span><span class="hs-keyword">type</span><span> </span><span class="hs-keyword">instance</span><span> </span><span id="XHsRat"><span class="annot"><a href="GHC.Hs.Extension.html#XHsRat"><span class="hs-identifier hs-var">XHsRat</span></a></span></span><span>        </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#GhcPass"><span class="hs-identifier hs-type">GhcPass</span></a></span><span> </span><span class="annot"><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="GHC.Hs.Extension.html#NoExtField"><span class="hs-identifier hs-type">NoExtField</span></a></span><span>
</span><span id="line-95"></span><span class="hs-keyword">type</span><span> </span><span class="hs-keyword">instance</span><span> </span><span id="XHsFloatPrim"><span class="annot"><a href="GHC.Hs.Extension.html#XHsFloatPrim"><span class="hs-identifier hs-var">XHsFloatPrim</span></a></span></span><span>  </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#GhcPass"><span class="hs-identifier hs-type">GhcPass</span></a></span><span> </span><span class="annot"><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="GHC.Hs.Extension.html#NoExtField"><span class="hs-identifier hs-type">NoExtField</span></a></span><span>
</span><span id="line-96"></span><span class="hs-keyword">type</span><span> </span><span class="hs-keyword">instance</span><span> </span><span id="XHsDoublePrim"><span class="annot"><a href="GHC.Hs.Extension.html#XHsDoublePrim"><span class="hs-identifier hs-var">XHsDoublePrim</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#GhcPass"><span class="hs-identifier hs-type">GhcPass</span></a></span><span> </span><span class="annot"><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="GHC.Hs.Extension.html#NoExtField"><span class="hs-identifier hs-type">NoExtField</span></a></span><span>
</span><span id="line-97"></span><span class="hs-keyword">type</span><span> </span><span class="hs-keyword">instance</span><span> </span><span id="XXLit"><span class="annot"><a href="GHC.Hs.Extension.html#XXLit"><span class="hs-identifier hs-var">XXLit</span></a></span></span><span>         </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#GhcPass"><span class="hs-identifier hs-type">GhcPass</span></a></span><span> </span><span class="annot"><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="GHC.Hs.Extension.html#NoExtCon"><span class="hs-identifier hs-type">NoExtCon</span></a></span><span>
</span><span id="line-98"></span><span>
</span><span id="line-99"></span><span id="local-6989586621680884622"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621680884424"><span class="annot"><span class="hs-identifier hs-type">Eq</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsLit"><span class="hs-identifier hs-type">HsLit</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884622"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">)</span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-100"></span><span>  </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsChar"><span class="hs-identifier hs-type">HsChar</span></a></span><span> </span><span class="annot"><span class="annottext">XHsChar x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884403"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621680884403"><span class="hs-identifier hs-var">x1</span></a></span></span><span class="hs-special">)</span><span>       </span><span id="local-6989586621680884402"><span class="annot"><span class="annottext">== :: HsLit x -&gt; HsLit x -&gt; Bool
</span><span class="hs-operator hs-var hs-var hs-var hs-var">==</span></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsChar"><span class="hs-identifier hs-type">HsChar</span></a></span><span> </span><span class="annot"><span class="annottext">XHsChar x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884401"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621680884401"><span class="hs-identifier hs-var">x2</span></a></span></span><span class="hs-special">)</span><span>       </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621680884403"><span class="hs-identifier hs-var">x1</span></a></span><span class="annot"><span class="annottext">Char -&gt; Char -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621680884401"><span class="hs-identifier hs-var">x2</span></a></span><span>
</span><span id="line-101"></span><span>  </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsCharPrim"><span class="hs-identifier hs-type">HsCharPrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsCharPrim x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884400"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621680884400"><span class="hs-identifier hs-var">x1</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="annot"><span class="hs-operator hs-var">==</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsCharPrim"><span class="hs-identifier hs-type">HsCharPrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsCharPrim x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884399"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621680884399"><span class="hs-identifier hs-var">x2</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621680884400"><span class="hs-identifier hs-var">x1</span></a></span><span class="annot"><span class="annottext">Char -&gt; Char -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621680884399"><span class="hs-identifier hs-var">x2</span></a></span><span>
</span><span id="line-102"></span><span>  </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsString"><span class="hs-identifier hs-type">HsString</span></a></span><span> </span><span class="annot"><span class="annottext">XHsString x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884398"><span class="annot"><span class="annottext">FastString
</span><a href="#local-6989586621680884398"><span class="hs-identifier hs-var">x1</span></a></span></span><span class="hs-special">)</span><span>     </span><span class="annot"><span class="hs-operator hs-var">==</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsString"><span class="hs-identifier hs-type">HsString</span></a></span><span> </span><span class="annot"><span class="annottext">XHsString x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884397"><span class="annot"><span class="annottext">FastString
</span><a href="#local-6989586621680884397"><span class="hs-identifier hs-var">x2</span></a></span></span><span class="hs-special">)</span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FastString
</span><a href="#local-6989586621680884398"><span class="hs-identifier hs-var">x1</span></a></span><span class="annot"><span class="annottext">FastString -&gt; FastString -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span class="annot"><span class="annottext">FastString
</span><a href="#local-6989586621680884397"><span class="hs-identifier hs-var">x2</span></a></span><span>
</span><span id="line-103"></span><span>  </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsStringPrim"><span class="hs-identifier hs-type">HsStringPrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsStringPrim x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884396"><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621680884396"><span class="hs-identifier hs-var">x1</span></a></span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="hs-operator hs-var">==</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsStringPrim"><span class="hs-identifier hs-type">HsStringPrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsStringPrim x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884395"><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621680884395"><span class="hs-identifier hs-var">x2</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621680884396"><span class="hs-identifier hs-var">x1</span></a></span><span class="annot"><span class="annottext">ByteString -&gt; ByteString -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621680884395"><span class="hs-identifier hs-var">x2</span></a></span><span>
</span><span id="line-104"></span><span>  </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsInt"><span class="hs-identifier hs-type">HsInt</span></a></span><span> </span><span class="annot"><span class="annottext">XHsInt x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884394"><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884394"><span class="hs-identifier hs-var">x1</span></a></span></span><span class="hs-special">)</span><span>        </span><span class="annot"><span class="hs-operator hs-var">==</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsInt"><span class="hs-identifier hs-type">HsInt</span></a></span><span> </span><span class="annot"><span class="annottext">XHsInt x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884393"><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884393"><span class="hs-identifier hs-var">x2</span></a></span></span><span class="hs-special">)</span><span>        </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884394"><span class="hs-identifier hs-var">x1</span></a></span><span class="annot"><span class="annottext">IntegralLit -&gt; IntegralLit -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884393"><span class="hs-identifier hs-var">x2</span></a></span><span>
</span><span id="line-105"></span><span>  </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIntPrim"><span class="hs-identifier hs-type">HsIntPrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsIntPrim x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884392"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884392"><span class="hs-identifier hs-var">x1</span></a></span></span><span class="hs-special">)</span><span>    </span><span class="annot"><span class="hs-operator hs-var">==</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIntPrim"><span class="hs-identifier hs-type">HsIntPrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsIntPrim x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884391"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884391"><span class="hs-identifier hs-var">x2</span></a></span></span><span class="hs-special">)</span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884392"><span class="hs-identifier hs-var">x1</span></a></span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884391"><span class="hs-identifier hs-var">x2</span></a></span><span>
</span><span id="line-106"></span><span>  </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsWordPrim"><span class="hs-identifier hs-type">HsWordPrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsWordPrim x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884390"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884390"><span class="hs-identifier hs-var">x1</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="annot"><span class="hs-operator hs-var">==</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsWordPrim"><span class="hs-identifier hs-type">HsWordPrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsWordPrim x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884389"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884389"><span class="hs-identifier hs-var">x2</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884390"><span class="hs-identifier hs-var">x1</span></a></span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884389"><span class="hs-identifier hs-var">x2</span></a></span><span>
</span><span id="line-107"></span><span>  </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsInt64Prim"><span class="hs-identifier hs-type">HsInt64Prim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsInt64Prim x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884388"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884388"><span class="hs-identifier hs-var">x1</span></a></span></span><span class="hs-special">)</span><span>  </span><span class="annot"><span class="hs-operator hs-var">==</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsInt64Prim"><span class="hs-identifier hs-type">HsInt64Prim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsInt64Prim x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884387"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884387"><span class="hs-identifier hs-var">x2</span></a></span></span><span class="hs-special">)</span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884388"><span class="hs-identifier hs-var">x1</span></a></span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884387"><span class="hs-identifier hs-var">x2</span></a></span><span>
</span><span id="line-108"></span><span>  </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsWord64Prim"><span class="hs-identifier hs-type">HsWord64Prim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsWord64Prim x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884386"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884386"><span class="hs-identifier hs-var">x1</span></a></span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="hs-operator hs-var">==</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsWord64Prim"><span class="hs-identifier hs-type">HsWord64Prim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsWord64Prim x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884385"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884385"><span class="hs-identifier hs-var">x2</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884386"><span class="hs-identifier hs-var">x1</span></a></span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884385"><span class="hs-identifier hs-var">x2</span></a></span><span>
</span><span id="line-109"></span><span>  </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsInteger"><span class="hs-identifier hs-type">HsInteger</span></a></span><span> </span><span class="annot"><span class="annottext">XHsInteger x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884384"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884384"><span class="hs-identifier hs-var">x1</span></a></span></span><span> </span><span class="annot"><span class="annottext">Type
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>  </span><span class="annot"><span class="hs-operator hs-var">==</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsInteger"><span class="hs-identifier hs-type">HsInteger</span></a></span><span> </span><span class="annot"><span class="annottext">XHsInteger x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884383"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884383"><span class="hs-identifier hs-var">x2</span></a></span></span><span> </span><span class="annot"><span class="annottext">Type
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884384"><span class="hs-identifier hs-var">x1</span></a></span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884383"><span class="hs-identifier hs-var">x2</span></a></span><span>
</span><span id="line-110"></span><span>  </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsRat"><span class="hs-identifier hs-type">HsRat</span></a></span><span> </span><span class="annot"><span class="annottext">XHsRat x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884382"><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884382"><span class="hs-identifier hs-var">x1</span></a></span></span><span> </span><span class="annot"><span class="annottext">Type
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>      </span><span class="annot"><span class="hs-operator hs-var">==</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsRat"><span class="hs-identifier hs-type">HsRat</span></a></span><span> </span><span class="annot"><span class="annottext">XHsRat x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884381"><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884381"><span class="hs-identifier hs-var">x2</span></a></span></span><span> </span><span class="annot"><span class="annottext">Type
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884382"><span class="hs-identifier hs-var">x1</span></a></span><span class="annot"><span class="annottext">FractionalLit -&gt; FractionalLit -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884381"><span class="hs-identifier hs-var">x2</span></a></span><span>
</span><span id="line-111"></span><span>  </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsFloatPrim"><span class="hs-identifier hs-type">HsFloatPrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsFloatPrim x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884380"><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884380"><span class="hs-identifier hs-var">x1</span></a></span></span><span class="hs-special">)</span><span>  </span><span class="annot"><span class="hs-operator hs-var">==</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsFloatPrim"><span class="hs-identifier hs-type">HsFloatPrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsFloatPrim x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884379"><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884379"><span class="hs-identifier hs-var">x2</span></a></span></span><span class="hs-special">)</span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884380"><span class="hs-identifier hs-var">x1</span></a></span><span class="annot"><span class="annottext">FractionalLit -&gt; FractionalLit -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884379"><span class="hs-identifier hs-var">x2</span></a></span><span>
</span><span id="line-112"></span><span>  </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsDoublePrim"><span class="hs-identifier hs-type">HsDoublePrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsDoublePrim x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884378"><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884378"><span class="hs-identifier hs-var">x1</span></a></span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="hs-operator hs-var">==</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsDoublePrim"><span class="hs-identifier hs-type">HsDoublePrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsDoublePrim x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884377"><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884377"><span class="hs-identifier hs-var">x2</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884378"><span class="hs-identifier hs-var">x1</span></a></span><span class="annot"><span class="annottext">FractionalLit -&gt; FractionalLit -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884377"><span class="hs-identifier hs-var">x2</span></a></span><span>
</span><span id="line-113"></span><span>  </span><span class="annot"><span class="annottext">HsLit x
</span><span class="hs-identifier">_</span></span><span>                   </span><span class="annot"><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">HsLit x
</span><span class="hs-identifier">_</span></span><span>                   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span></span><span>
</span><span id="line-114"></span><span>
</span><span id="line-115"></span><span class="hs-comment">-- | Haskell Overloaded Literal</span><span>
</span><span id="line-116"></span><span class="hs-keyword">data</span><span> </span><span id="HsOverLit"><span class="annot"><a href="GHC.Hs.Lit.html#HsOverLit"><span class="hs-identifier hs-var">HsOverLit</span></a></span></span><span> </span><span id="local-6989586621680884603"><span class="annot"><a href="#local-6989586621680884603"><span class="hs-identifier hs-type">p</span></a></span></span><span>
</span><span id="line-117"></span><span>  </span><span class="hs-glyph">=</span><span> </span><span id="OverLit"><span class="annot"><a href="GHC.Hs.Lit.html#OverLit"><span class="hs-identifier hs-var">OverLit</span></a></span></span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-118"></span><span>      </span><span id="ol_ext"><span class="annot"><span class="annottext">forall p. HsOverLit p -&gt; XOverLit p
</span><a href="GHC.Hs.Lit.html#ol_ext"><span class="hs-identifier hs-var hs-var">ol_ext</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#XOverLit"><span class="hs-identifier hs-type">XOverLit</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884603"><span class="hs-identifier hs-type">p</span></a></span><span class="hs-special">)</span><span class="hs-special">,</span><span>
</span><span id="line-119"></span><span>      </span><span id="ol_val"><span class="annot"><span class="annottext">forall p. HsOverLit p -&gt; OverLitVal
</span><a href="GHC.Hs.Lit.html#ol_val"><span class="hs-identifier hs-var hs-var">ol_val</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Hs.Lit.html#OverLitVal"><span class="hs-identifier hs-type">OverLitVal</span></a></span><span class="hs-special">,</span><span>
</span><span id="line-120"></span><span>      </span><span id="ol_witness"><span class="annot"><span class="annottext">forall p. HsOverLit p -&gt; HsExpr p
</span><a href="GHC.Hs.Lit.html#ol_witness"><span class="hs-identifier hs-var hs-var">ol_witness</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Hs.Expr.html#HsExpr"><span class="hs-identifier hs-type">HsExpr</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884603"><span class="hs-identifier hs-type">p</span></a></span><span class="hs-special">}</span><span>         </span><span class="hs-comment">-- Note [Overloaded literal witnesses]</span><span>
</span><span id="line-121"></span><span>
</span><span id="line-122"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="XOverLit"><span class="annot"><a href="GHC.Hs.Lit.html#XOverLit"><span class="hs-identifier hs-var">XOverLit</span></a></span></span><span>
</span><span id="line-123"></span><span>      </span><span class="hs-glyph">!</span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#XXOverLit"><span class="hs-identifier hs-type">XXOverLit</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884603"><span class="hs-identifier hs-type">p</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-124"></span><span>
</span><span id="line-125"></span><span class="hs-keyword">data</span><span> </span><span id="OverLitTc"><span class="annot"><a href="GHC.Hs.Lit.html#OverLitTc"><span class="hs-identifier hs-var">OverLitTc</span></a></span></span><span>
</span><span id="line-126"></span><span>  </span><span class="hs-glyph">=</span><span> </span><span id="OverLitTc"><span class="annot"><a href="GHC.Hs.Lit.html#OverLitTc"><span class="hs-identifier hs-var">OverLitTc</span></a></span></span><span> </span><span class="hs-special">{</span><span>
</span><span id="line-127"></span><span>        </span><span id="ol_rebindable"><span class="annot"><span class="annottext">OverLitTc -&gt; Bool
</span><a href="GHC.Hs.Lit.html#ol_rebindable"><span class="hs-identifier hs-var hs-var">ol_rebindable</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span class="hs-special">,</span><span> </span><span class="hs-comment">-- Note [ol_rebindable]</span><span>
</span><span id="line-128"></span><span>        </span><span id="ol_type"><span class="annot"><span class="annottext">OverLitTc -&gt; Type
</span><a href="GHC.Hs.Lit.html#ol_type"><span class="hs-identifier hs-var hs-var">ol_type</span></a></span></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Core.TyCo.Rep.html#Type"><span class="hs-identifier hs-type">Type</span></a></span><span> </span><span class="hs-special">}</span><span>
</span><span id="line-129"></span><span>  </span><span class="hs-keyword">deriving</span><span> </span><span id="local-6989586621680884333"><span id="local-6989586621680884335"><span id="local-6989586621680884337"><span id="local-6989586621680884339"><span id="local-6989586621680884341"><span id="local-6989586621680884343"><span id="local-6989586621680884345"><span id="local-6989586621680884347"><span id="local-6989586621680884349"><span id="local-6989586621680884351"><span id="local-6989586621680884353"><span id="local-6989586621680884355"><span id="local-6989586621680884359"><span id="local-6989586621680884365"><span class="annot"><span class="annottext">Typeable OverLitTc
Typeable OverLitTc
-&gt; (forall (c :: * -&gt; *).
    (forall d b. Data d =&gt; c (d -&gt; b) -&gt; d -&gt; c b)
    -&gt; (forall g. g -&gt; c g) -&gt; OverLitTc -&gt; c OverLitTc)
-&gt; (forall (c :: * -&gt; *).
    (forall b r. Data b =&gt; c (b -&gt; r) -&gt; c r)
    -&gt; (forall r. r -&gt; c r) -&gt; Constr -&gt; c OverLitTc)
-&gt; (OverLitTc -&gt; Constr)
-&gt; (OverLitTc -&gt; DataType)
-&gt; (forall (t :: * -&gt; *) (c :: * -&gt; *).
    Typeable t =&gt;
    (forall d. Data d =&gt; c (t d)) -&gt; Maybe (c OverLitTc))
-&gt; (forall (t :: * -&gt; * -&gt; *) (c :: * -&gt; *).
    Typeable t =&gt;
    (forall d e. (Data d, Data e) =&gt; c (t d e)) -&gt; Maybe (c OverLitTc))
-&gt; ((forall b. Data b =&gt; b -&gt; b) -&gt; OverLitTc -&gt; OverLitTc)
-&gt; (forall r r'.
    (r -&gt; r' -&gt; r)
    -&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; OverLitTc -&gt; r)
-&gt; (forall r r'.
    (r' -&gt; r -&gt; r)
    -&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; OverLitTc -&gt; r)
-&gt; (forall u. (forall d. Data d =&gt; d -&gt; u) -&gt; OverLitTc -&gt; [u])
-&gt; (forall u.
    Int -&gt; (forall d. Data d =&gt; d -&gt; u) -&gt; OverLitTc -&gt; u)
-&gt; (forall (m :: * -&gt; *).
    Monad m =&gt;
    (forall d. Data d =&gt; d -&gt; m d) -&gt; OverLitTc -&gt; m OverLitTc)
-&gt; (forall (m :: * -&gt; *).
    MonadPlus m =&gt;
    (forall d. Data d =&gt; d -&gt; m d) -&gt; OverLitTc -&gt; m OverLitTc)
-&gt; (forall (m :: * -&gt; *).
    MonadPlus m =&gt;
    (forall d. Data d =&gt; d -&gt; m d) -&gt; OverLitTc -&gt; m OverLitTc)
-&gt; Data OverLitTc
OverLitTc -&gt; DataType
OverLitTc -&gt; Constr
(forall b. Data b =&gt; b -&gt; b) -&gt; OverLitTc -&gt; OverLitTc
forall a.
Typeable a
-&gt; (forall (c :: * -&gt; *).
    (forall d b. Data d =&gt; c (d -&gt; b) -&gt; d -&gt; c b)
    -&gt; (forall g. g -&gt; c g) -&gt; a -&gt; c a)
-&gt; (forall (c :: * -&gt; *).
    (forall b r. Data b =&gt; c (b -&gt; r) -&gt; c r)
    -&gt; (forall r. r -&gt; c r) -&gt; Constr -&gt; c a)
-&gt; (a -&gt; Constr)
-&gt; (a -&gt; DataType)
-&gt; (forall (t :: * -&gt; *) (c :: * -&gt; *).
    Typeable t =&gt;
    (forall d. Data d =&gt; c (t d)) -&gt; Maybe (c a))
-&gt; (forall (t :: * -&gt; * -&gt; *) (c :: * -&gt; *).
    Typeable t =&gt;
    (forall d e. (Data d, Data e) =&gt; c (t d e)) -&gt; Maybe (c a))
-&gt; ((forall b. Data b =&gt; b -&gt; b) -&gt; a -&gt; a)
-&gt; (forall r r'.
    (r -&gt; r' -&gt; r) -&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; a -&gt; r)
-&gt; (forall r r'.
    (r' -&gt; r -&gt; r) -&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; a -&gt; r)
-&gt; (forall u. (forall d. Data d =&gt; d -&gt; u) -&gt; a -&gt; [u])
-&gt; (forall u. Int -&gt; (forall d. Data d =&gt; d -&gt; u) -&gt; a -&gt; u)
-&gt; (forall (m :: * -&gt; *).
    Monad m =&gt;
    (forall d. Data d =&gt; d -&gt; m d) -&gt; a -&gt; m a)
-&gt; (forall (m :: * -&gt; *).
    MonadPlus m =&gt;
    (forall d. Data d =&gt; d -&gt; m d) -&gt; a -&gt; m a)
-&gt; (forall (m :: * -&gt; *).
    MonadPlus m =&gt;
    (forall d. Data d =&gt; d -&gt; m d) -&gt; a -&gt; m a)
-&gt; Data a
forall u. Int -&gt; (forall d. Data d =&gt; d -&gt; u) -&gt; OverLitTc -&gt; u
forall u. (forall d. Data d =&gt; d -&gt; u) -&gt; OverLitTc -&gt; [u]
forall r r'.
(r -&gt; r' -&gt; r)
-&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; OverLitTc -&gt; r
forall r r'.
(r' -&gt; r -&gt; r)
-&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; OverLitTc -&gt; r
forall (m :: * -&gt; *).
Monad m =&gt;
(forall d. Data d =&gt; d -&gt; m d) -&gt; OverLitTc -&gt; m OverLitTc
forall (m :: * -&gt; *).
MonadPlus m =&gt;
(forall d. Data d =&gt; d -&gt; m d) -&gt; OverLitTc -&gt; m OverLitTc
forall (c :: * -&gt; *).
(forall b r. Data b =&gt; c (b -&gt; r) -&gt; c r)
-&gt; (forall r. r -&gt; c r) -&gt; Constr -&gt; c OverLitTc
forall (c :: * -&gt; *).
(forall d b. Data d =&gt; c (d -&gt; b) -&gt; d -&gt; c b)
-&gt; (forall g. g -&gt; c g) -&gt; OverLitTc -&gt; c OverLitTc
forall (t :: * -&gt; *) (c :: * -&gt; *).
Typeable t =&gt;
(forall d. Data d =&gt; c (t d)) -&gt; Maybe (c OverLitTc)
forall (t :: * -&gt; * -&gt; *) (c :: * -&gt; *).
Typeable t =&gt;
(forall d e. (Data d, Data e) =&gt; c (t d e)) -&gt; Maybe (c OverLitTc)
gmapMo :: forall (m :: * -&gt; *).
MonadPlus m =&gt;
(forall d. Data d =&gt; d -&gt; m d) -&gt; OverLitTc -&gt; m OverLitTc
$cgmapMo :: forall (m :: * -&gt; *).
MonadPlus m =&gt;
(forall d. Data d =&gt; d -&gt; m d) -&gt; OverLitTc -&gt; m OverLitTc
gmapMp :: forall (m :: * -&gt; *).
MonadPlus m =&gt;
(forall d. Data d =&gt; d -&gt; m d) -&gt; OverLitTc -&gt; m OverLitTc
$cgmapMp :: forall (m :: * -&gt; *).
MonadPlus m =&gt;
(forall d. Data d =&gt; d -&gt; m d) -&gt; OverLitTc -&gt; m OverLitTc
gmapM :: forall (m :: * -&gt; *).
Monad m =&gt;
(forall d. Data d =&gt; d -&gt; m d) -&gt; OverLitTc -&gt; m OverLitTc
$cgmapM :: forall (m :: * -&gt; *).
Monad m =&gt;
(forall d. Data d =&gt; d -&gt; m d) -&gt; OverLitTc -&gt; m OverLitTc
gmapQi :: forall u. Int -&gt; (forall d. Data d =&gt; d -&gt; u) -&gt; OverLitTc -&gt; u
$cgmapQi :: forall u. Int -&gt; (forall d. Data d =&gt; d -&gt; u) -&gt; OverLitTc -&gt; u
gmapQ :: forall u. (forall d. Data d =&gt; d -&gt; u) -&gt; OverLitTc -&gt; [u]
$cgmapQ :: forall u. (forall d. Data d =&gt; d -&gt; u) -&gt; OverLitTc -&gt; [u]
gmapQr :: forall r r'.
(r' -&gt; r -&gt; r)
-&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; OverLitTc -&gt; r
$cgmapQr :: forall r r'.
(r' -&gt; r -&gt; r)
-&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; OverLitTc -&gt; r
gmapQl :: forall r r'.
(r -&gt; r' -&gt; r)
-&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; OverLitTc -&gt; r
$cgmapQl :: forall r r'.
(r -&gt; r' -&gt; r)
-&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; OverLitTc -&gt; r
gmapT :: (forall b. Data b =&gt; b -&gt; b) -&gt; OverLitTc -&gt; OverLitTc
$cgmapT :: (forall b. Data b =&gt; b -&gt; b) -&gt; OverLitTc -&gt; OverLitTc
dataCast2 :: forall (t :: * -&gt; * -&gt; *) (c :: * -&gt; *).
Typeable t =&gt;
(forall d e. (Data d, Data e) =&gt; c (t d e)) -&gt; Maybe (c OverLitTc)
$cdataCast2 :: forall (t :: * -&gt; * -&gt; *) (c :: * -&gt; *).
Typeable t =&gt;
(forall d e. (Data d, Data e) =&gt; c (t d e)) -&gt; Maybe (c OverLitTc)
dataCast1 :: forall (t :: * -&gt; *) (c :: * -&gt; *).
Typeable t =&gt;
(forall d. Data d =&gt; c (t d)) -&gt; Maybe (c OverLitTc)
$cdataCast1 :: forall (t :: * -&gt; *) (c :: * -&gt; *).
Typeable t =&gt;
(forall d. Data d =&gt; c (t d)) -&gt; Maybe (c OverLitTc)
dataTypeOf :: OverLitTc -&gt; DataType
$cdataTypeOf :: OverLitTc -&gt; DataType
toConstr :: OverLitTc -&gt; Constr
$ctoConstr :: OverLitTc -&gt; Constr
gunfold :: forall (c :: * -&gt; *).
(forall b r. Data b =&gt; c (b -&gt; r) -&gt; c r)
-&gt; (forall r. r -&gt; c r) -&gt; Constr -&gt; c OverLitTc
$cgunfold :: forall (c :: * -&gt; *).
(forall b r. Data b =&gt; c (b -&gt; r) -&gt; c r)
-&gt; (forall r. r -&gt; c r) -&gt; Constr -&gt; c OverLitTc
gfoldl :: forall (c :: * -&gt; *).
(forall d b. Data d =&gt; c (d -&gt; b) -&gt; d -&gt; c b)
-&gt; (forall g. g -&gt; c g) -&gt; OverLitTc -&gt; c OverLitTc
$cgfoldl :: forall (c :: * -&gt; *).
(forall d b. Data d =&gt; c (d -&gt; b) -&gt; d -&gt; c b)
-&gt; (forall g. g -&gt; c g) -&gt; OverLitTc -&gt; c OverLitTc
</span><a href="../../base/src/Data.Data.html#Data"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Data</span></a></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span><span>
</span><span id="line-130"></span><span>
</span><span id="line-131"></span><span class="hs-keyword">type</span><span> </span><span class="hs-keyword">instance</span><span> </span><span id="XOverLit"><span class="annot"><a href="GHC.Hs.Extension.html#XOverLit"><span class="hs-identifier hs-var">XOverLit</span></a></span></span><span> </span><span class="annot"><a href="GHC.Hs.Extension.html#GhcPs"><span class="hs-identifier hs-type">GhcPs</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="GHC.Hs.Extension.html#NoExtField"><span class="hs-identifier hs-type">NoExtField</span></a></span><span>
</span><span id="line-132"></span><span class="hs-keyword">type</span><span> </span><span class="hs-keyword">instance</span><span> </span><span id="XOverLit"><span class="annot"><a href="GHC.Hs.Extension.html#XOverLit"><span class="hs-identifier hs-var">XOverLit</span></a></span></span><span> </span><span class="annot"><a href="GHC.Hs.Extension.html#GhcRn"><span class="hs-identifier hs-type">GhcRn</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>            </span><span class="hs-comment">-- Note [ol_rebindable]</span><span>
</span><span id="line-133"></span><span class="hs-keyword">type</span><span> </span><span class="hs-keyword">instance</span><span> </span><span id="XOverLit"><span class="annot"><a href="GHC.Hs.Extension.html#XOverLit"><span class="hs-identifier hs-var">XOverLit</span></a></span></span><span> </span><span class="annot"><a href="GHC.Hs.Extension.html#GhcTc"><span class="hs-identifier hs-type">GhcTc</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="GHC.Hs.Lit.html#OverLitTc"><span class="hs-identifier hs-type">OverLitTc</span></a></span><span>
</span><span id="line-134"></span><span>
</span><span id="line-135"></span><span class="hs-keyword">type</span><span> </span><span class="hs-keyword">instance</span><span> </span><span id="XXOverLit"><span class="annot"><a href="GHC.Hs.Extension.html#XXOverLit"><span class="hs-identifier hs-var">XXOverLit</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#GhcPass"><span class="hs-identifier hs-type">GhcPass</span></a></span><span> </span><span class="annot"><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><a href="GHC.Hs.Extension.html#NoExtCon"><span class="hs-identifier hs-type">NoExtCon</span></a></span><span>
</span><span id="line-136"></span><span>
</span><span id="line-137"></span><span class="hs-comment">-- Note [Literal source text] in GHC.Types.Basic for SourceText fields in</span><span>
</span><span id="line-138"></span><span class="hs-comment">-- the following</span><span>
</span><span id="line-139"></span><span class="hs-comment">-- | Overloaded Literal Value</span><span>
</span><span id="line-140"></span><span class="hs-keyword">data</span><span> </span><span id="OverLitVal"><span class="annot"><a href="GHC.Hs.Lit.html#OverLitVal"><span class="hs-identifier hs-var">OverLitVal</span></a></span></span><span>
</span><span id="line-141"></span><span>  </span><span class="hs-glyph">=</span><span> </span><span id="HsIntegral"><span class="annot"><a href="GHC.Hs.Lit.html#HsIntegral"><span class="hs-identifier hs-var">HsIntegral</span></a></span></span><span>   </span><span class="hs-glyph">!</span><span class="annot"><a href="GHC.Types.Basic.html#IntegralLit"><span class="hs-identifier hs-type">IntegralLit</span></a></span><span>            </span><span class="hs-comment">-- ^ Integer-looking literals;</span><span>
</span><span id="line-142"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="HsFractional"><span class="annot"><a href="GHC.Hs.Lit.html#HsFractional"><span class="hs-identifier hs-var">HsFractional</span></a></span></span><span> </span><span class="hs-glyph">!</span><span class="annot"><a href="GHC.Types.Basic.html#FractionalLit"><span class="hs-identifier hs-type">FractionalLit</span></a></span><span>          </span><span class="hs-comment">-- ^ Frac-looking literals</span><span>
</span><span id="line-143"></span><span>  </span><span class="hs-glyph">|</span><span> </span><span id="HsIsString"><span class="annot"><a href="GHC.Hs.Lit.html#HsIsString"><span class="hs-identifier hs-var">HsIsString</span></a></span></span><span>   </span><span class="hs-glyph">!</span><span class="annot"><a href="GHC.Types.Basic.html#SourceText"><span class="hs-identifier hs-type">SourceText</span></a></span><span> </span><span class="hs-glyph">!</span><span class="annot"><a href="GHC.Data.FastString.html#FastString"><span class="hs-identifier hs-type">FastString</span></a></span><span> </span><span class="hs-comment">-- ^ String-looking literals</span><span>
</span><span id="line-144"></span><span>  </span><span class="hs-keyword">deriving</span><span> </span><span id="local-6989586621680884285"><span id="local-6989586621680884287"><span id="local-6989586621680884289"><span id="local-6989586621680884291"><span id="local-6989586621680884293"><span id="local-6989586621680884295"><span id="local-6989586621680884297"><span id="local-6989586621680884299"><span id="local-6989586621680884301"><span id="local-6989586621680884303"><span id="local-6989586621680884305"><span id="local-6989586621680884307"><span id="local-6989586621680884313"><span id="local-6989586621680884323"><span class="annot"><span class="annottext">Typeable OverLitVal
Typeable OverLitVal
-&gt; (forall (c :: * -&gt; *).
    (forall d b. Data d =&gt; c (d -&gt; b) -&gt; d -&gt; c b)
    -&gt; (forall g. g -&gt; c g) -&gt; OverLitVal -&gt; c OverLitVal)
-&gt; (forall (c :: * -&gt; *).
    (forall b r. Data b =&gt; c (b -&gt; r) -&gt; c r)
    -&gt; (forall r. r -&gt; c r) -&gt; Constr -&gt; c OverLitVal)
-&gt; (OverLitVal -&gt; Constr)
-&gt; (OverLitVal -&gt; DataType)
-&gt; (forall (t :: * -&gt; *) (c :: * -&gt; *).
    Typeable t =&gt;
    (forall d. Data d =&gt; c (t d)) -&gt; Maybe (c OverLitVal))
-&gt; (forall (t :: * -&gt; * -&gt; *) (c :: * -&gt; *).
    Typeable t =&gt;
    (forall d e. (Data d, Data e) =&gt; c (t d e))
    -&gt; Maybe (c OverLitVal))
-&gt; ((forall b. Data b =&gt; b -&gt; b) -&gt; OverLitVal -&gt; OverLitVal)
-&gt; (forall r r'.
    (r -&gt; r' -&gt; r)
    -&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; OverLitVal -&gt; r)
-&gt; (forall r r'.
    (r' -&gt; r -&gt; r)
    -&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; OverLitVal -&gt; r)
-&gt; (forall u. (forall d. Data d =&gt; d -&gt; u) -&gt; OverLitVal -&gt; [u])
-&gt; (forall u.
    Int -&gt; (forall d. Data d =&gt; d -&gt; u) -&gt; OverLitVal -&gt; u)
-&gt; (forall (m :: * -&gt; *).
    Monad m =&gt;
    (forall d. Data d =&gt; d -&gt; m d) -&gt; OverLitVal -&gt; m OverLitVal)
-&gt; (forall (m :: * -&gt; *).
    MonadPlus m =&gt;
    (forall d. Data d =&gt; d -&gt; m d) -&gt; OverLitVal -&gt; m OverLitVal)
-&gt; (forall (m :: * -&gt; *).
    MonadPlus m =&gt;
    (forall d. Data d =&gt; d -&gt; m d) -&gt; OverLitVal -&gt; m OverLitVal)
-&gt; Data OverLitVal
OverLitVal -&gt; DataType
OverLitVal -&gt; Constr
(forall b. Data b =&gt; b -&gt; b) -&gt; OverLitVal -&gt; OverLitVal
forall a.
Typeable a
-&gt; (forall (c :: * -&gt; *).
    (forall d b. Data d =&gt; c (d -&gt; b) -&gt; d -&gt; c b)
    -&gt; (forall g. g -&gt; c g) -&gt; a -&gt; c a)
-&gt; (forall (c :: * -&gt; *).
    (forall b r. Data b =&gt; c (b -&gt; r) -&gt; c r)
    -&gt; (forall r. r -&gt; c r) -&gt; Constr -&gt; c a)
-&gt; (a -&gt; Constr)
-&gt; (a -&gt; DataType)
-&gt; (forall (t :: * -&gt; *) (c :: * -&gt; *).
    Typeable t =&gt;
    (forall d. Data d =&gt; c (t d)) -&gt; Maybe (c a))
-&gt; (forall (t :: * -&gt; * -&gt; *) (c :: * -&gt; *).
    Typeable t =&gt;
    (forall d e. (Data d, Data e) =&gt; c (t d e)) -&gt; Maybe (c a))
-&gt; ((forall b. Data b =&gt; b -&gt; b) -&gt; a -&gt; a)
-&gt; (forall r r'.
    (r -&gt; r' -&gt; r) -&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; a -&gt; r)
-&gt; (forall r r'.
    (r' -&gt; r -&gt; r) -&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; a -&gt; r)
-&gt; (forall u. (forall d. Data d =&gt; d -&gt; u) -&gt; a -&gt; [u])
-&gt; (forall u. Int -&gt; (forall d. Data d =&gt; d -&gt; u) -&gt; a -&gt; u)
-&gt; (forall (m :: * -&gt; *).
    Monad m =&gt;
    (forall d. Data d =&gt; d -&gt; m d) -&gt; a -&gt; m a)
-&gt; (forall (m :: * -&gt; *).
    MonadPlus m =&gt;
    (forall d. Data d =&gt; d -&gt; m d) -&gt; a -&gt; m a)
-&gt; (forall (m :: * -&gt; *).
    MonadPlus m =&gt;
    (forall d. Data d =&gt; d -&gt; m d) -&gt; a -&gt; m a)
-&gt; Data a
forall u. Int -&gt; (forall d. Data d =&gt; d -&gt; u) -&gt; OverLitVal -&gt; u
forall u. (forall d. Data d =&gt; d -&gt; u) -&gt; OverLitVal -&gt; [u]
forall r r'.
(r -&gt; r' -&gt; r)
-&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; OverLitVal -&gt; r
forall r r'.
(r' -&gt; r -&gt; r)
-&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; OverLitVal -&gt; r
forall (m :: * -&gt; *).
Monad m =&gt;
(forall d. Data d =&gt; d -&gt; m d) -&gt; OverLitVal -&gt; m OverLitVal
forall (m :: * -&gt; *).
MonadPlus m =&gt;
(forall d. Data d =&gt; d -&gt; m d) -&gt; OverLitVal -&gt; m OverLitVal
forall (c :: * -&gt; *).
(forall b r. Data b =&gt; c (b -&gt; r) -&gt; c r)
-&gt; (forall r. r -&gt; c r) -&gt; Constr -&gt; c OverLitVal
forall (c :: * -&gt; *).
(forall d b. Data d =&gt; c (d -&gt; b) -&gt; d -&gt; c b)
-&gt; (forall g. g -&gt; c g) -&gt; OverLitVal -&gt; c OverLitVal
forall (t :: * -&gt; *) (c :: * -&gt; *).
Typeable t =&gt;
(forall d. Data d =&gt; c (t d)) -&gt; Maybe (c OverLitVal)
forall (t :: * -&gt; * -&gt; *) (c :: * -&gt; *).
Typeable t =&gt;
(forall d e. (Data d, Data e) =&gt; c (t d e)) -&gt; Maybe (c OverLitVal)
gmapMo :: forall (m :: * -&gt; *).
MonadPlus m =&gt;
(forall d. Data d =&gt; d -&gt; m d) -&gt; OverLitVal -&gt; m OverLitVal
$cgmapMo :: forall (m :: * -&gt; *).
MonadPlus m =&gt;
(forall d. Data d =&gt; d -&gt; m d) -&gt; OverLitVal -&gt; m OverLitVal
gmapMp :: forall (m :: * -&gt; *).
MonadPlus m =&gt;
(forall d. Data d =&gt; d -&gt; m d) -&gt; OverLitVal -&gt; m OverLitVal
$cgmapMp :: forall (m :: * -&gt; *).
MonadPlus m =&gt;
(forall d. Data d =&gt; d -&gt; m d) -&gt; OverLitVal -&gt; m OverLitVal
gmapM :: forall (m :: * -&gt; *).
Monad m =&gt;
(forall d. Data d =&gt; d -&gt; m d) -&gt; OverLitVal -&gt; m OverLitVal
$cgmapM :: forall (m :: * -&gt; *).
Monad m =&gt;
(forall d. Data d =&gt; d -&gt; m d) -&gt; OverLitVal -&gt; m OverLitVal
gmapQi :: forall u. Int -&gt; (forall d. Data d =&gt; d -&gt; u) -&gt; OverLitVal -&gt; u
$cgmapQi :: forall u. Int -&gt; (forall d. Data d =&gt; d -&gt; u) -&gt; OverLitVal -&gt; u
gmapQ :: forall u. (forall d. Data d =&gt; d -&gt; u) -&gt; OverLitVal -&gt; [u]
$cgmapQ :: forall u. (forall d. Data d =&gt; d -&gt; u) -&gt; OverLitVal -&gt; [u]
gmapQr :: forall r r'.
(r' -&gt; r -&gt; r)
-&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; OverLitVal -&gt; r
$cgmapQr :: forall r r'.
(r' -&gt; r -&gt; r)
-&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; OverLitVal -&gt; r
gmapQl :: forall r r'.
(r -&gt; r' -&gt; r)
-&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; OverLitVal -&gt; r
$cgmapQl :: forall r r'.
(r -&gt; r' -&gt; r)
-&gt; r -&gt; (forall d. Data d =&gt; d -&gt; r') -&gt; OverLitVal -&gt; r
gmapT :: (forall b. Data b =&gt; b -&gt; b) -&gt; OverLitVal -&gt; OverLitVal
$cgmapT :: (forall b. Data b =&gt; b -&gt; b) -&gt; OverLitVal -&gt; OverLitVal
dataCast2 :: forall (t :: * -&gt; * -&gt; *) (c :: * -&gt; *).
Typeable t =&gt;
(forall d e. (Data d, Data e) =&gt; c (t d e)) -&gt; Maybe (c OverLitVal)
$cdataCast2 :: forall (t :: * -&gt; * -&gt; *) (c :: * -&gt; *).
Typeable t =&gt;
(forall d e. (Data d, Data e) =&gt; c (t d e)) -&gt; Maybe (c OverLitVal)
dataCast1 :: forall (t :: * -&gt; *) (c :: * -&gt; *).
Typeable t =&gt;
(forall d. Data d =&gt; c (t d)) -&gt; Maybe (c OverLitVal)
$cdataCast1 :: forall (t :: * -&gt; *) (c :: * -&gt; *).
Typeable t =&gt;
(forall d. Data d =&gt; c (t d)) -&gt; Maybe (c OverLitVal)
dataTypeOf :: OverLitVal -&gt; DataType
$cdataTypeOf :: OverLitVal -&gt; DataType
toConstr :: OverLitVal -&gt; Constr
$ctoConstr :: OverLitVal -&gt; Constr
gunfold :: forall (c :: * -&gt; *).
(forall b r. Data b =&gt; c (b -&gt; r) -&gt; c r)
-&gt; (forall r. r -&gt; c r) -&gt; Constr -&gt; c OverLitVal
$cgunfold :: forall (c :: * -&gt; *).
(forall b r. Data b =&gt; c (b -&gt; r) -&gt; c r)
-&gt; (forall r. r -&gt; c r) -&gt; Constr -&gt; c OverLitVal
gfoldl :: forall (c :: * -&gt; *).
(forall d b. Data d =&gt; c (d -&gt; b) -&gt; d -&gt; c b)
-&gt; (forall g. g -&gt; c g) -&gt; OverLitVal -&gt; c OverLitVal
$cgfoldl :: forall (c :: * -&gt; *).
(forall d b. Data d =&gt; c (d -&gt; b) -&gt; d -&gt; c b)
-&gt; (forall g. g -&gt; c g) -&gt; OverLitVal -&gt; c OverLitVal
</span><a href="../../base/src/Data.Data.html#Data"><span class="hs-identifier hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var hs-var">Data</span></a></span></span></span></span></span></span></span></span></span></span></span></span></span></span></span><span>
</span><span id="line-145"></span><span>
</span><span id="line-146"></span><span class="annot"><a href="GHC.Hs.Lit.html#negateOverLitVal"><span class="hs-identifier hs-type">negateOverLitVal</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Hs.Lit.html#OverLitVal"><span class="hs-identifier hs-type">OverLitVal</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Hs.Lit.html#OverLitVal"><span class="hs-identifier hs-type">OverLitVal</span></a></span><span>
</span><span id="line-147"></span><span id="negateOverLitVal"><span class="annot"><span class="annottext">negateOverLitVal :: OverLitVal -&gt; OverLitVal
</span><a href="GHC.Hs.Lit.html#negateOverLitVal"><span class="hs-identifier hs-var hs-var">negateOverLitVal</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIntegral"><span class="hs-identifier hs-type">HsIntegral</span></a></span><span> </span><span id="local-6989586621680884283"><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884283"><span class="hs-identifier hs-var">i</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">IntegralLit -&gt; OverLitVal
</span><a href="GHC.Hs.Lit.html#HsIntegral"><span class="hs-identifier hs-var">HsIntegral</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">IntegralLit -&gt; IntegralLit
</span><a href="GHC.Types.Basic.html#negateIntegralLit"><span class="hs-identifier hs-var">negateIntegralLit</span></a></span><span> </span><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884283"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-148"></span><span class="annot"><a href="GHC.Hs.Lit.html#negateOverLitVal"><span class="hs-identifier hs-var">negateOverLitVal</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsFractional"><span class="hs-identifier hs-type">HsFractional</span></a></span><span> </span><span id="local-6989586621680884282"><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884282"><span class="hs-identifier hs-var">f</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FractionalLit -&gt; OverLitVal
</span><a href="GHC.Hs.Lit.html#HsFractional"><span class="hs-identifier hs-var">HsFractional</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FractionalLit -&gt; FractionalLit
</span><a href="GHC.Types.Basic.html#negateFractionalLit"><span class="hs-identifier hs-var">negateFractionalLit</span></a></span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884282"><span class="hs-identifier hs-var">f</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-149"></span><span class="annot"><a href="GHC.Hs.Lit.html#negateOverLitVal"><span class="hs-identifier hs-var">negateOverLitVal</span></a></span><span> </span><span class="annot"><span class="annottext">OverLitVal
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; OverLitVal
forall a. String -&gt; a
</span><a href="GHC.Utils.Panic.Plain.html#panic"><span class="hs-identifier hs-var">panic</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;negateOverLitVal: argument is not a number&quot;</span></span><span>
</span><span id="line-150"></span><span>
</span><span id="line-151"></span><span class="annot"><a href="GHC.Hs.Lit.html#overLitType"><span class="hs-identifier hs-type">overLitType</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Hs.Lit.html#HsOverLit"><span class="hs-identifier hs-type">HsOverLit</span></a></span><span> </span><span class="annot"><a href="GHC.Hs.Extension.html#GhcTc"><span class="hs-identifier hs-type">GhcTc</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Core.TyCo.Rep.html#Type"><span class="hs-identifier hs-type">Type</span></a></span><span>
</span><span id="line-152"></span><span id="overLitType"><span class="annot"><span class="annottext">overLitType :: HsOverLit GhcTc -&gt; Type
</span><a href="GHC.Hs.Lit.html#overLitType"><span class="hs-identifier hs-var hs-var">overLitType</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#OverLit"><span class="hs-identifier hs-type">OverLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#OverLitTc"><span class="hs-identifier hs-type">OverLitTc</span></a></span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884279"><span class="annot"><span class="annottext">Type
</span><a href="#local-6989586621680884279"><span class="hs-identifier hs-var">ty</span></a></span></span><span class="hs-special">)</span><span> </span><span class="annot"><span class="annottext">OverLitVal
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">HsExpr GhcTc
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Type
</span><a href="#local-6989586621680884279"><span class="hs-identifier hs-var">ty</span></a></span><span>
</span><span id="line-153"></span><span>
</span><span id="line-154"></span><span class="hs-comment">-- | Convert a literal from one index type to another</span><span>
</span><span id="line-155"></span><span id="local-6989586621680884560"><span id="local-6989586621680884561"><span class="annot"><a href="GHC.Hs.Lit.html#convertLit"><span class="hs-identifier hs-type">convertLit</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Hs.Lit.html#HsLit"><span class="hs-identifier hs-type">HsLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#GhcPass"><span class="hs-identifier hs-type">GhcPass</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884561"><span class="hs-identifier hs-type">p1</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Hs.Lit.html#HsLit"><span class="hs-identifier hs-type">HsLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#GhcPass"><span class="hs-identifier hs-type">GhcPass</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884560"><span class="hs-identifier hs-type">p2</span></a></span><span class="hs-special">)</span></span></span><span>
</span><span id="line-156"></span><span id="convertLit"><span class="annot"><span class="annottext">convertLit :: forall (p1 :: Pass) (p2 :: Pass).
HsLit (GhcPass p1) -&gt; HsLit (GhcPass p2)
</span><a href="GHC.Hs.Lit.html#convertLit"><span class="hs-identifier hs-var hs-var">convertLit</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsChar"><span class="hs-identifier hs-type">HsChar</span></a></span><span> </span><span id="local-6989586621680884277"><span class="annot"><span class="annottext">XHsChar (GhcPass p1)
</span><a href="#local-6989586621680884277"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span id="local-6989586621680884276"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621680884276"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span>       </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">XHsChar (GhcPass p2) -&gt; Char -&gt; HsLit (GhcPass p2)
forall x. XHsChar x -&gt; Char -&gt; HsLit x
</span><a href="GHC.Hs.Lit.html#HsChar"><span class="hs-identifier hs-var">HsChar</span></a></span><span> </span><span class="annot"><span class="annottext">XHsChar (GhcPass p1)
XHsChar (GhcPass p2)
</span><a href="#local-6989586621680884277"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621680884276"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-157"></span><span class="annot"><a href="GHC.Hs.Lit.html#convertLit"><span class="hs-identifier hs-var">convertLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsCharPrim"><span class="hs-identifier hs-type">HsCharPrim</span></a></span><span> </span><span id="local-6989586621680884275"><span class="annot"><span class="annottext">XHsCharPrim (GhcPass p1)
</span><a href="#local-6989586621680884275"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span id="local-6989586621680884274"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621680884274"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">XHsCharPrim (GhcPass p2) -&gt; Char -&gt; HsLit (GhcPass p2)
forall x. XHsCharPrim x -&gt; Char -&gt; HsLit x
</span><a href="GHC.Hs.Lit.html#HsCharPrim"><span class="hs-identifier hs-var">HsCharPrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsCharPrim (GhcPass p1)
XHsCharPrim (GhcPass p2)
</span><a href="#local-6989586621680884275"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621680884274"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-158"></span><span class="annot"><a href="GHC.Hs.Lit.html#convertLit"><span class="hs-identifier hs-var">convertLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsString"><span class="hs-identifier hs-type">HsString</span></a></span><span> </span><span id="local-6989586621680884273"><span class="annot"><span class="annottext">XHsString (GhcPass p1)
</span><a href="#local-6989586621680884273"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span id="local-6989586621680884272"><span class="annot"><span class="annottext">FastString
</span><a href="#local-6989586621680884272"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">XHsString (GhcPass p2) -&gt; FastString -&gt; HsLit (GhcPass p2)
forall x. XHsString x -&gt; FastString -&gt; HsLit x
</span><a href="GHC.Hs.Lit.html#HsString"><span class="hs-identifier hs-var">HsString</span></a></span><span> </span><span class="annot"><span class="annottext">XHsString (GhcPass p1)
XHsString (GhcPass p2)
</span><a href="#local-6989586621680884273"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">FastString
</span><a href="#local-6989586621680884272"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-159"></span><span class="annot"><a href="GHC.Hs.Lit.html#convertLit"><span class="hs-identifier hs-var">convertLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsStringPrim"><span class="hs-identifier hs-type">HsStringPrim</span></a></span><span> </span><span id="local-6989586621680884271"><span class="annot"><span class="annottext">XHsStringPrim (GhcPass p1)
</span><a href="#local-6989586621680884271"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span id="local-6989586621680884270"><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621680884270"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">XHsStringPrim (GhcPass p2) -&gt; ByteString -&gt; HsLit (GhcPass p2)
forall x. XHsStringPrim x -&gt; ByteString -&gt; HsLit x
</span><a href="GHC.Hs.Lit.html#HsStringPrim"><span class="hs-identifier hs-var">HsStringPrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsStringPrim (GhcPass p1)
XHsStringPrim (GhcPass p2)
</span><a href="#local-6989586621680884271"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621680884270"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-160"></span><span class="annot"><a href="GHC.Hs.Lit.html#convertLit"><span class="hs-identifier hs-var">convertLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsInt"><span class="hs-identifier hs-type">HsInt</span></a></span><span> </span><span id="local-6989586621680884269"><span class="annot"><span class="annottext">XHsInt (GhcPass p1)
</span><a href="#local-6989586621680884269"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span id="local-6989586621680884268"><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884268"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span>        </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">XHsInt (GhcPass p2) -&gt; IntegralLit -&gt; HsLit (GhcPass p2)
forall x. XHsInt x -&gt; IntegralLit -&gt; HsLit x
</span><a href="GHC.Hs.Lit.html#HsInt"><span class="hs-identifier hs-var">HsInt</span></a></span><span> </span><span class="annot"><span class="annottext">XHsInt (GhcPass p1)
XHsInt (GhcPass p2)
</span><a href="#local-6989586621680884269"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884268"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-161"></span><span class="annot"><a href="GHC.Hs.Lit.html#convertLit"><span class="hs-identifier hs-var">convertLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIntPrim"><span class="hs-identifier hs-type">HsIntPrim</span></a></span><span> </span><span id="local-6989586621680884267"><span class="annot"><span class="annottext">XHsIntPrim (GhcPass p1)
</span><a href="#local-6989586621680884267"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span id="local-6989586621680884266"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884266"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">XHsIntPrim (GhcPass p2) -&gt; Integer -&gt; HsLit (GhcPass p2)
forall x. XHsIntPrim x -&gt; Integer -&gt; HsLit x
</span><a href="GHC.Hs.Lit.html#HsIntPrim"><span class="hs-identifier hs-var">HsIntPrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsIntPrim (GhcPass p1)
XHsIntPrim (GhcPass p2)
</span><a href="#local-6989586621680884267"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884266"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-162"></span><span class="annot"><a href="GHC.Hs.Lit.html#convertLit"><span class="hs-identifier hs-var">convertLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsWordPrim"><span class="hs-identifier hs-type">HsWordPrim</span></a></span><span> </span><span id="local-6989586621680884265"><span class="annot"><span class="annottext">XHsWordPrim (GhcPass p1)
</span><a href="#local-6989586621680884265"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span id="local-6989586621680884264"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884264"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">XHsWordPrim (GhcPass p2) -&gt; Integer -&gt; HsLit (GhcPass p2)
forall x. XHsWordPrim x -&gt; Integer -&gt; HsLit x
</span><a href="GHC.Hs.Lit.html#HsWordPrim"><span class="hs-identifier hs-var">HsWordPrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsWordPrim (GhcPass p1)
XHsWordPrim (GhcPass p2)
</span><a href="#local-6989586621680884265"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884264"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-163"></span><span class="annot"><a href="GHC.Hs.Lit.html#convertLit"><span class="hs-identifier hs-var">convertLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsInt64Prim"><span class="hs-identifier hs-type">HsInt64Prim</span></a></span><span> </span><span id="local-6989586621680884263"><span class="annot"><span class="annottext">XHsInt64Prim (GhcPass p1)
</span><a href="#local-6989586621680884263"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span id="local-6989586621680884262"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884262"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">XHsInt64Prim (GhcPass p2) -&gt; Integer -&gt; HsLit (GhcPass p2)
forall x. XHsInt64Prim x -&gt; Integer -&gt; HsLit x
</span><a href="GHC.Hs.Lit.html#HsInt64Prim"><span class="hs-identifier hs-var">HsInt64Prim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsInt64Prim (GhcPass p1)
XHsInt64Prim (GhcPass p2)
</span><a href="#local-6989586621680884263"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884262"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-164"></span><span class="annot"><a href="GHC.Hs.Lit.html#convertLit"><span class="hs-identifier hs-var">convertLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsWord64Prim"><span class="hs-identifier hs-type">HsWord64Prim</span></a></span><span> </span><span id="local-6989586621680884261"><span class="annot"><span class="annottext">XHsWord64Prim (GhcPass p1)
</span><a href="#local-6989586621680884261"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span id="local-6989586621680884260"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884260"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">XHsWord64Prim (GhcPass p2) -&gt; Integer -&gt; HsLit (GhcPass p2)
forall x. XHsWord64Prim x -&gt; Integer -&gt; HsLit x
</span><a href="GHC.Hs.Lit.html#HsWord64Prim"><span class="hs-identifier hs-var">HsWord64Prim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsWord64Prim (GhcPass p1)
XHsWord64Prim (GhcPass p2)
</span><a href="#local-6989586621680884261"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884260"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-165"></span><span class="annot"><a href="GHC.Hs.Lit.html#convertLit"><span class="hs-identifier hs-var">convertLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsInteger"><span class="hs-identifier hs-type">HsInteger</span></a></span><span> </span><span id="local-6989586621680884259"><span class="annot"><span class="annottext">XHsInteger (GhcPass p1)
</span><a href="#local-6989586621680884259"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span id="local-6989586621680884258"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884258"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span id="local-6989586621680884257"><span class="annot"><span class="annottext">Type
</span><a href="#local-6989586621680884257"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">)</span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">XHsInteger (GhcPass p2) -&gt; Integer -&gt; Type -&gt; HsLit (GhcPass p2)
forall x. XHsInteger x -&gt; Integer -&gt; Type -&gt; HsLit x
</span><a href="GHC.Hs.Lit.html#HsInteger"><span class="hs-identifier hs-var">HsInteger</span></a></span><span> </span><span class="annot"><span class="annottext">XHsInteger (GhcPass p1)
XHsInteger (GhcPass p2)
</span><a href="#local-6989586621680884259"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884258"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="annot"><span class="annottext">Type
</span><a href="#local-6989586621680884257"><span class="hs-identifier hs-var">b</span></a></span><span>
</span><span id="line-166"></span><span class="annot"><a href="GHC.Hs.Lit.html#convertLit"><span class="hs-identifier hs-var">convertLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsRat"><span class="hs-identifier hs-type">HsRat</span></a></span><span> </span><span id="local-6989586621680884256"><span class="annot"><span class="annottext">XHsRat (GhcPass p1)
</span><a href="#local-6989586621680884256"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span id="local-6989586621680884255"><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884255"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span id="local-6989586621680884254"><span class="annot"><span class="annottext">Type
</span><a href="#local-6989586621680884254"><span class="hs-identifier hs-var">b</span></a></span></span><span class="hs-special">)</span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">XHsRat (GhcPass p2) -&gt; FractionalLit -&gt; Type -&gt; HsLit (GhcPass p2)
forall x. XHsRat x -&gt; FractionalLit -&gt; Type -&gt; HsLit x
</span><a href="GHC.Hs.Lit.html#HsRat"><span class="hs-identifier hs-var">HsRat</span></a></span><span> </span><span class="annot"><span class="annottext">XHsRat (GhcPass p1)
XHsRat (GhcPass p2)
</span><a href="#local-6989586621680884256"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884255"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="annot"><span class="annottext">Type
</span><a href="#local-6989586621680884254"><span class="hs-identifier hs-var">b</span></a></span><span>
</span><span id="line-167"></span><span class="annot"><a href="GHC.Hs.Lit.html#convertLit"><span class="hs-identifier hs-var">convertLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsFloatPrim"><span class="hs-identifier hs-type">HsFloatPrim</span></a></span><span> </span><span id="local-6989586621680884253"><span class="annot"><span class="annottext">XHsFloatPrim (GhcPass p1)
</span><a href="#local-6989586621680884253"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span id="local-6989586621680884252"><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884252"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">XHsFloatPrim (GhcPass p2) -&gt; FractionalLit -&gt; HsLit (GhcPass p2)
forall x. XHsFloatPrim x -&gt; FractionalLit -&gt; HsLit x
</span><a href="GHC.Hs.Lit.html#HsFloatPrim"><span class="hs-identifier hs-var">HsFloatPrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsFloatPrim (GhcPass p1)
XHsFloatPrim (GhcPass p2)
</span><a href="#local-6989586621680884253"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884252"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-168"></span><span class="annot"><a href="GHC.Hs.Lit.html#convertLit"><span class="hs-identifier hs-var">convertLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsDoublePrim"><span class="hs-identifier hs-type">HsDoublePrim</span></a></span><span> </span><span id="local-6989586621680884251"><span class="annot"><span class="annottext">XHsDoublePrim (GhcPass p1)
</span><a href="#local-6989586621680884251"><span class="hs-identifier hs-var">a</span></a></span></span><span> </span><span id="local-6989586621680884250"><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884250"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">XHsDoublePrim (GhcPass p2) -&gt; FractionalLit -&gt; HsLit (GhcPass p2)
forall x. XHsDoublePrim x -&gt; FractionalLit -&gt; HsLit x
</span><a href="GHC.Hs.Lit.html#HsDoublePrim"><span class="hs-identifier hs-var">HsDoublePrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsDoublePrim (GhcPass p1)
XHsDoublePrim (GhcPass p2)
</span><a href="#local-6989586621680884251"><span class="hs-identifier hs-var">a</span></a></span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884250"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-169"></span><span>
</span><span id="line-170"></span><span class="hs-comment">{-
Note [ol_rebindable]
~~~~~~~~~~~~~~~~~~~~
The ol_rebindable field is True if this literal is actually
using rebindable syntax.  Specifically:

  False iff ol_witness is the standard one
  True  iff ol_witness is non-standard

Equivalently it's True if
  a) RebindableSyntax is on
  b) the witness for fromInteger/fromRational/fromString
     that happens to be in scope isn't the standard one

Note [Overloaded literal witnesses]
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*Before* type checking, the HsExpr in an HsOverLit is the
name of the coercion function, 'fromInteger' or 'fromRational'.
*After* type checking, it is a witness for the literal, such as
        (fromInteger 3) or lit_78
This witness should replace the literal.

This dual role is unusual, because we're replacing 'fromInteger' with
a call to fromInteger.  Reason: it allows commoning up of the fromInteger
calls, which wouldn't be possible if the desugarer made the application.

The PostTcType in each branch records the type the overload literal is
found to have.
-}</span><span>
</span><span id="line-199"></span><span>
</span><span id="line-200"></span><span class="hs-comment">-- Comparison operations are needed when grouping literals</span><span>
</span><span id="line-201"></span><span class="hs-comment">-- for compiling pattern-matching (module GHC.HsToCore.Match.Literal)</span><span>
</span><span id="line-202"></span><span id="local-6989586621680884556"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621680884247"><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Eq</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#XXOverLit"><span class="hs-identifier hs-type">XXOverLit</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884556"><span class="hs-identifier hs-type">p</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Eq</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsOverLit"><span class="hs-identifier hs-type">HsOverLit</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884556"><span class="hs-identifier hs-type">p</span></a></span><span class="hs-special">)</span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-203"></span><span>  </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#OverLit"><span class="hs-identifier hs-type">OverLit</span></a></span><span> </span><span class="annot"><span class="annottext">XOverLit p
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884244"><span class="annot"><span class="annottext">OverLitVal
</span><a href="#local-6989586621680884244"><span class="hs-identifier hs-var">val1</span></a></span></span><span> </span><span class="annot"><span class="annottext">HsExpr p
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621680884243"><span class="annot"><span class="annottext">== :: HsOverLit p -&gt; HsOverLit p -&gt; Bool
</span><span class="hs-operator hs-var hs-var hs-var hs-var">==</span></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#OverLit"><span class="hs-identifier hs-type">OverLit</span></a></span><span> </span><span class="annot"><span class="annottext">XOverLit p
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884242"><span class="annot"><span class="annottext">OverLitVal
</span><a href="#local-6989586621680884242"><span class="hs-identifier hs-var">val2</span></a></span></span><span> </span><span class="annot"><span class="annottext">HsExpr p
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">OverLitVal
</span><a href="#local-6989586621680884244"><span class="hs-identifier hs-var">val1</span></a></span><span> </span><span class="annot"><span class="annottext">OverLitVal -&gt; OverLitVal -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">OverLitVal
</span><a href="#local-6989586621680884242"><span class="hs-identifier hs-var">val2</span></a></span><span>
</span><span id="line-204"></span><span>  </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#XOverLit"><span class="hs-identifier hs-type">XOverLit</span></a></span><span>  </span><span id="local-6989586621680884241"><span class="annot"><span class="annottext">XXOverLit p
</span><a href="#local-6989586621680884241"><span class="hs-identifier hs-var">val1</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="annot"><span class="hs-operator hs-var">==</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#XOverLit"><span class="hs-identifier hs-type">XOverLit</span></a></span><span>  </span><span id="local-6989586621680884240"><span class="annot"><span class="annottext">XXOverLit p
</span><a href="#local-6989586621680884240"><span class="hs-identifier hs-var">val2</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">XXOverLit p
</span><a href="#local-6989586621680884241"><span class="hs-identifier hs-var">val1</span></a></span><span> </span><span class="annot"><span class="annottext">XXOverLit p -&gt; XXOverLit p -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">XXOverLit p
</span><a href="#local-6989586621680884240"><span class="hs-identifier hs-var">val2</span></a></span><span>
</span><span id="line-205"></span><span>  </span><span class="annot"><span class="annottext">HsOverLit p
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">HsOverLit p
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; Bool
forall a. String -&gt; a
</span><a href="GHC.Utils.Panic.Plain.html#panic"><span class="hs-identifier hs-var">panic</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;Eq HsOverLit&quot;</span></span></span><span>
</span><span id="line-206"></span><span>
</span><span id="line-207"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621680884237"><span class="annot"><span class="hs-identifier hs-type">Eq</span></span><span> </span><span class="annot"><a href="GHC.Hs.Lit.html#OverLitVal"><span class="hs-identifier hs-type">OverLitVal</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-208"></span><span>  </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIntegral"><span class="hs-identifier hs-type">HsIntegral</span></a></span><span>   </span><span id="local-6989586621680884233"><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884233"><span class="hs-identifier hs-var">i1</span></a></span></span><span class="hs-special">)</span><span>   </span><span id="local-6989586621680884232"><span class="annot"><span class="annottext">== :: OverLitVal -&gt; OverLitVal -&gt; Bool
</span><span class="hs-operator hs-var hs-var hs-var hs-var">==</span></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIntegral"><span class="hs-identifier hs-type">HsIntegral</span></a></span><span>   </span><span id="local-6989586621680884231"><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884231"><span class="hs-identifier hs-var">i2</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884233"><span class="hs-identifier hs-var">i1</span></a></span><span> </span><span class="annot"><span class="annottext">IntegralLit -&gt; IntegralLit -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884231"><span class="hs-identifier hs-var">i2</span></a></span><span>
</span><span id="line-209"></span><span>  </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsFractional"><span class="hs-identifier hs-type">HsFractional</span></a></span><span> </span><span id="local-6989586621680884230"><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884230"><span class="hs-identifier hs-var">f1</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="annot"><span class="hs-operator hs-var">==</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsFractional"><span class="hs-identifier hs-type">HsFractional</span></a></span><span> </span><span id="local-6989586621680884229"><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884229"><span class="hs-identifier hs-var">f2</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884230"><span class="hs-identifier hs-var">f1</span></a></span><span> </span><span class="annot"><span class="annottext">FractionalLit -&gt; FractionalLit -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884229"><span class="hs-identifier hs-var">f2</span></a></span><span>
</span><span id="line-210"></span><span>  </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIsString"><span class="hs-identifier hs-type">HsIsString</span></a></span><span> </span><span class="annot"><span class="annottext">SourceText
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884228"><span class="annot"><span class="annottext">FastString
</span><a href="#local-6989586621680884228"><span class="hs-identifier hs-var">s1</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="annot"><span class="hs-operator hs-var">==</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIsString"><span class="hs-identifier hs-type">HsIsString</span></a></span><span> </span><span class="annot"><span class="annottext">SourceText
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884227"><span class="annot"><span class="annottext">FastString
</span><a href="#local-6989586621680884227"><span class="hs-identifier hs-var">s2</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FastString
</span><a href="#local-6989586621680884228"><span class="hs-identifier hs-var">s1</span></a></span><span> </span><span class="annot"><span class="annottext">FastString -&gt; FastString -&gt; Bool
forall a. Eq a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">FastString
</span><a href="#local-6989586621680884227"><span class="hs-identifier hs-var">s2</span></a></span><span>
</span><span id="line-211"></span><span>  </span><span class="annot"><span class="annottext">OverLitVal
</span><span class="hs-identifier">_</span></span><span>                   </span><span class="annot"><span class="hs-operator hs-var">==</span></span><span> </span><span class="annot"><span class="annottext">OverLitVal
</span><span class="hs-identifier">_</span></span><span>                   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span>
</span><span id="line-212"></span><span>
</span><span id="line-213"></span><span id="local-6989586621680884554"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621680884211"><span id="local-6989586621680884213"><span id="local-6989586621680884215"><span id="local-6989586621680884217"><span id="local-6989586621680884219"><span id="local-6989586621680884221"><span class="hs-special">(</span><span class="annot"><span class="hs-identifier hs-type">Ord</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#XXOverLit"><span class="hs-identifier hs-type">XXOverLit</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884554"><span class="hs-identifier hs-type">p</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Ord</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsOverLit"><span class="hs-identifier hs-type">HsOverLit</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884554"><span class="hs-identifier hs-type">p</span></a></span><span class="hs-special">)</span></span></span></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-214"></span><span>  </span><span id="local-6989586621680884207"><span class="annot"><span class="annottext">compare :: HsOverLit p -&gt; HsOverLit p -&gt; Ordering
</span><span class="hs-identifier hs-var hs-var hs-var hs-var">compare</span></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#OverLit"><span class="hs-identifier hs-type">OverLit</span></a></span><span> </span><span class="annot"><span class="annottext">XOverLit p
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884205"><span class="annot"><span class="annottext">OverLitVal
</span><a href="#local-6989586621680884205"><span class="hs-identifier hs-var">val1</span></a></span></span><span> </span><span class="annot"><span class="annottext">HsExpr p
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#OverLit"><span class="hs-identifier hs-type">OverLit</span></a></span><span> </span><span class="annot"><span class="annottext">XOverLit p
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884204"><span class="annot"><span class="annottext">OverLitVal
</span><a href="#local-6989586621680884204"><span class="hs-identifier hs-var">val2</span></a></span></span><span> </span><span class="annot"><span class="annottext">HsExpr p
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">OverLitVal
</span><a href="#local-6989586621680884205"><span class="hs-identifier hs-var">val1</span></a></span><span> </span><span class="annot"><span class="annottext">OverLitVal -&gt; OverLitVal -&gt; Ordering
forall a. Ord a =&gt; a -&gt; a -&gt; Ordering
</span><span class="hs-operator hs-var">`compare`</span></span><span> </span><span class="annot"><span class="annottext">OverLitVal
</span><a href="#local-6989586621680884204"><span class="hs-identifier hs-var">val2</span></a></span><span>
</span><span id="line-215"></span><span>  </span><span class="annot"><span class="hs-identifier hs-var">compare</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#XOverLit"><span class="hs-identifier hs-type">XOverLit</span></a></span><span>  </span><span id="local-6989586621680884203"><span class="annot"><span class="annottext">XXOverLit p
</span><a href="#local-6989586621680884203"><span class="hs-identifier hs-var">val1</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#XOverLit"><span class="hs-identifier hs-type">XOverLit</span></a></span><span>  </span><span id="local-6989586621680884202"><span class="annot"><span class="annottext">XXOverLit p
</span><a href="#local-6989586621680884202"><span class="hs-identifier hs-var">val2</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">XXOverLit p
</span><a href="#local-6989586621680884203"><span class="hs-identifier hs-var">val1</span></a></span><span> </span><span class="annot"><span class="annottext">XXOverLit p -&gt; XXOverLit p -&gt; Ordering
forall a. Ord a =&gt; a -&gt; a -&gt; Ordering
</span><span class="hs-operator hs-var">`compare`</span></span><span> </span><span class="annot"><span class="annottext">XXOverLit p
</span><a href="#local-6989586621680884202"><span class="hs-identifier hs-var">val2</span></a></span><span>
</span><span id="line-216"></span><span>  </span><span class="annot"><span class="hs-identifier hs-var">compare</span></span><span> </span><span class="annot"><span class="annottext">HsOverLit p
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">HsOverLit p
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; Ordering
forall a. String -&gt; a
</span><a href="GHC.Utils.Panic.Plain.html#panic"><span class="hs-identifier hs-var">panic</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><span class="hs-string">&quot;Ord HsOverLit&quot;</span></span></span><span>
</span><span id="line-217"></span><span>
</span><span id="line-218"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621680884187"><span id="local-6989586621680884189"><span id="local-6989586621680884191"><span id="local-6989586621680884193"><span id="local-6989586621680884195"><span id="local-6989586621680884197"><span class="annot"><span class="hs-identifier hs-type">Ord</span></span><span> </span><span class="annot"><a href="GHC.Hs.Lit.html#OverLitVal"><span class="hs-identifier hs-type">OverLitVal</span></a></span></span></span></span></span></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-219"></span><span>  </span><span id="local-6989586621680884180"><span class="annot"><span class="annottext">compare :: OverLitVal -&gt; OverLitVal -&gt; Ordering
</span><a href="#local-6989586621680884180"><span class="hs-identifier hs-var hs-var hs-var hs-var">compare</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIntegral"><span class="hs-identifier hs-type">HsIntegral</span></a></span><span> </span><span id="local-6989586621680884179"><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884179"><span class="hs-identifier hs-var">i1</span></a></span></span><span class="hs-special">)</span><span>     </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIntegral"><span class="hs-identifier hs-type">HsIntegral</span></a></span><span> </span><span id="local-6989586621680884178"><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884178"><span class="hs-identifier hs-var">i2</span></a></span></span><span class="hs-special">)</span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884179"><span class="hs-identifier hs-var">i1</span></a></span><span> </span><span class="annot"><span class="annottext">IntegralLit -&gt; IntegralLit -&gt; Ordering
forall a. Ord a =&gt; a -&gt; a -&gt; Ordering
</span><span class="hs-operator hs-var">`compare`</span></span><span> </span><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884178"><span class="hs-identifier hs-var">i2</span></a></span><span>
</span><span id="line-220"></span><span>  </span><span class="annot"><span class="hs-identifier hs-var">compare</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIntegral"><span class="hs-identifier hs-type">HsIntegral</span></a></span><span> </span><span class="annot"><span class="annottext">IntegralLit
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>      </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsFractional"><span class="hs-identifier hs-type">HsFractional</span></a></span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Ordering
</span><span class="hs-identifier hs-var">LT</span></span><span>
</span><span id="line-221"></span><span>  </span><span class="annot"><span class="hs-identifier hs-var">compare</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIntegral"><span class="hs-identifier hs-type">HsIntegral</span></a></span><span> </span><span class="annot"><span class="annottext">IntegralLit
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>      </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIsString"><span class="hs-identifier hs-type">HsIsString</span></a></span><span> </span><span class="annot"><span class="annottext">SourceText
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">FastString
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Ordering
</span><span class="hs-identifier hs-var">LT</span></span><span>
</span><span id="line-222"></span><span>  </span><span class="annot"><span class="hs-identifier hs-var">compare</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsFractional"><span class="hs-identifier hs-type">HsFractional</span></a></span><span> </span><span id="local-6989586621680884177"><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884177"><span class="hs-identifier hs-var">f1</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsFractional"><span class="hs-identifier hs-type">HsFractional</span></a></span><span> </span><span id="local-6989586621680884176"><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884176"><span class="hs-identifier hs-var">f2</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884177"><span class="hs-identifier hs-var">f1</span></a></span><span> </span><span class="annot"><span class="annottext">FractionalLit -&gt; FractionalLit -&gt; Ordering
forall a. Ord a =&gt; a -&gt; a -&gt; Ordering
</span><span class="hs-operator hs-var">`compare`</span></span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884176"><span class="hs-identifier hs-var">f2</span></a></span><span>
</span><span id="line-223"></span><span>  </span><span class="annot"><span class="hs-identifier hs-var">compare</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsFractional"><span class="hs-identifier hs-type">HsFractional</span></a></span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>    </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIntegral"><span class="hs-identifier hs-type">HsIntegral</span></a></span><span>   </span><span class="annot"><span class="annottext">IntegralLit
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Ordering
</span><span class="hs-identifier hs-var">GT</span></span><span>
</span><span id="line-224"></span><span>  </span><span class="annot"><span class="hs-identifier hs-var">compare</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsFractional"><span class="hs-identifier hs-type">HsFractional</span></a></span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>    </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIsString"><span class="hs-identifier hs-type">HsIsString</span></a></span><span> </span><span class="annot"><span class="annottext">SourceText
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">FastString
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Ordering
</span><span class="hs-identifier hs-var">LT</span></span><span>
</span><span id="line-225"></span><span>  </span><span class="annot"><span class="hs-identifier hs-var">compare</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIsString"><span class="hs-identifier hs-type">HsIsString</span></a></span><span> </span><span class="annot"><span class="annottext">SourceText
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884175"><span class="annot"><span class="annottext">FastString
</span><a href="#local-6989586621680884175"><span class="hs-identifier hs-var">s1</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIsString"><span class="hs-identifier hs-type">HsIsString</span></a></span><span> </span><span class="annot"><span class="annottext">SourceText
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884174"><span class="annot"><span class="annottext">FastString
</span><a href="#local-6989586621680884174"><span class="hs-identifier hs-var">s2</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FastString
</span><a href="#local-6989586621680884175"><span class="hs-identifier hs-var">s1</span></a></span><span> </span><span class="annot"><span class="annottext">FastString -&gt; FastString -&gt; Ordering
forall a. Ord a =&gt; a -&gt; a -&gt; Ordering
</span><span class="hs-operator hs-var">`compare`</span></span><span> </span><span class="annot"><span class="annottext">FastString
</span><a href="#local-6989586621680884174"><span class="hs-identifier hs-var">s2</span></a></span><span>
</span><span id="line-226"></span><span>  </span><span class="annot"><span class="hs-identifier hs-var">compare</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIsString"><span class="hs-identifier hs-type">HsIsString</span></a></span><span> </span><span class="annot"><span class="annottext">SourceText
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">FastString
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>    </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIntegral"><span class="hs-identifier hs-type">HsIntegral</span></a></span><span>   </span><span class="annot"><span class="annottext">IntegralLit
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Ordering
</span><span class="hs-identifier hs-var">GT</span></span><span>
</span><span id="line-227"></span><span>  </span><span class="annot"><span class="hs-identifier hs-var">compare</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIsString"><span class="hs-identifier hs-type">HsIsString</span></a></span><span> </span><span class="annot"><span class="annottext">SourceText
</span><span class="hs-identifier">_</span></span><span> </span><span class="annot"><span class="annottext">FastString
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>    </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsFractional"><span class="hs-identifier hs-type">HsFractional</span></a></span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Ordering
</span><span class="hs-identifier hs-var">GT</span></span><span>
</span><span id="line-228"></span><span>
</span><span id="line-229"></span><span class="hs-comment">-- Instance specific to GhcPs, need the SourceText</span><span>
</span><span id="line-230"></span><span id="local-6989586621680884551"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621680884171"><span class="annot"><a href="GHC.Utils.Outputable.html#Outputable"><span class="hs-identifier hs-type">Outputable</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsLit"><span class="hs-identifier hs-type">HsLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#GhcPass"><span class="hs-identifier hs-type">GhcPass</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884551"><span class="hs-identifier hs-type">p</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-231"></span><span>    </span><span id="local-6989586621680884165"><span class="annot"><span class="annottext">ppr :: HsLit (GhcPass p) -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#ppr"><span class="hs-identifier hs-var hs-var hs-var hs-var">ppr</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsChar"><span class="hs-identifier hs-type">HsChar</span></a></span><span> </span><span id="local-6989586621680884163"><span class="annot"><span class="annottext">XHsChar (GhcPass p)
</span><a href="#local-6989586621680884163"><span class="hs-identifier hs-var">st</span></a></span></span><span> </span><span id="local-6989586621680884162"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621680884162"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">)</span><span>       </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SourceText -&gt; SDoc -&gt; SDoc
</span><a href="GHC.Types.Basic.html#pprWithSourceText"><span class="hs-identifier hs-var">pprWithSourceText</span></a></span><span> </span><span class="annot"><span class="annottext">SourceText
XHsChar (GhcPass p)
</span><a href="#local-6989586621680884163"><span class="hs-identifier hs-var">st</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#pprHsChar"><span class="hs-identifier hs-var">pprHsChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621680884162"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-232"></span><span>    </span><span class="annot"><a href="GHC.Utils.Outputable.html#ppr"><span class="hs-identifier hs-var">ppr</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsCharPrim"><span class="hs-identifier hs-type">HsCharPrim</span></a></span><span> </span><span id="local-6989586621680884160"><span class="annot"><span class="annottext">XHsCharPrim (GhcPass p)
</span><a href="#local-6989586621680884160"><span class="hs-identifier hs-var">st</span></a></span></span><span> </span><span id="local-6989586621680884159"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621680884159"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SourceText -&gt; SDoc -&gt; SDoc -&gt; SDoc
</span><a href="GHC.Hs.Lit.html#pp_st_suffix"><span class="hs-identifier hs-var">pp_st_suffix</span></a></span><span> </span><span class="annot"><span class="annottext">SourceText
XHsCharPrim (GhcPass p)
</span><a href="#local-6989586621680884160"><span class="hs-identifier hs-var">st</span></a></span><span> </span><span class="annot"><span class="annottext">SDoc
</span><a href="GHC.Utils.Outputable.html#primCharSuffix"><span class="hs-identifier hs-var">primCharSuffix</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Char -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#pprPrimChar"><span class="hs-identifier hs-var">pprPrimChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621680884159"><span class="hs-identifier hs-var">c</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-233"></span><span>    </span><span class="annot"><a href="GHC.Utils.Outputable.html#ppr"><span class="hs-identifier hs-var">ppr</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsString"><span class="hs-identifier hs-type">HsString</span></a></span><span> </span><span id="local-6989586621680884155"><span class="annot"><span class="annottext">XHsString (GhcPass p)
</span><a href="#local-6989586621680884155"><span class="hs-identifier hs-var">st</span></a></span></span><span> </span><span id="local-6989586621680884154"><span class="annot"><span class="annottext">FastString
</span><a href="#local-6989586621680884154"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-special">)</span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SourceText -&gt; SDoc -&gt; SDoc
</span><a href="GHC.Types.Basic.html#pprWithSourceText"><span class="hs-identifier hs-var">pprWithSourceText</span></a></span><span> </span><span class="annot"><span class="annottext">SourceText
XHsString (GhcPass p)
</span><a href="#local-6989586621680884155"><span class="hs-identifier hs-var">st</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FastString -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#pprHsString"><span class="hs-identifier hs-var">pprHsString</span></a></span><span> </span><span class="annot"><span class="annottext">FastString
</span><a href="#local-6989586621680884154"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-234"></span><span>    </span><span class="annot"><a href="GHC.Utils.Outputable.html#ppr"><span class="hs-identifier hs-var">ppr</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsStringPrim"><span class="hs-identifier hs-type">HsStringPrim</span></a></span><span> </span><span id="local-6989586621680884152"><span class="annot"><span class="annottext">XHsStringPrim (GhcPass p)
</span><a href="#local-6989586621680884152"><span class="hs-identifier hs-var">st</span></a></span></span><span> </span><span id="local-6989586621680884151"><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621680884151"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SourceText -&gt; SDoc -&gt; SDoc
</span><a href="GHC.Types.Basic.html#pprWithSourceText"><span class="hs-identifier hs-var">pprWithSourceText</span></a></span><span> </span><span class="annot"><span class="annottext">SourceText
XHsStringPrim (GhcPass p)
</span><a href="#local-6989586621680884152"><span class="hs-identifier hs-var">st</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">ByteString -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#pprHsBytes"><span class="hs-identifier hs-var">pprHsBytes</span></a></span><span> </span><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621680884151"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-235"></span><span>    </span><span class="annot"><a href="GHC.Utils.Outputable.html#ppr"><span class="hs-identifier hs-var">ppr</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsInt"><span class="hs-identifier hs-type">HsInt</span></a></span><span> </span><span class="annot"><span class="annottext">XHsInt (GhcPass p)
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884149"><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884149"><span class="hs-identifier hs-var">i</span></a></span></span><span class="hs-special">)</span><span>
</span><span id="line-236"></span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SourceText -&gt; SDoc -&gt; SDoc
</span><a href="GHC.Types.Basic.html#pprWithSourceText"><span class="hs-identifier hs-var">pprWithSourceText</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">IntegralLit -&gt; SourceText
</span><a href="GHC.Types.Basic.html#il_text"><span class="hs-identifier hs-var hs-var">il_text</span></a></span><span> </span><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884149"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#integer"><span class="hs-identifier hs-var">integer</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">IntegralLit -&gt; Integer
</span><a href="GHC.Types.Basic.html#il_value"><span class="hs-identifier hs-var hs-var">il_value</span></a></span><span> </span><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884149"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-237"></span><span>    </span><span class="annot"><a href="GHC.Utils.Outputable.html#ppr"><span class="hs-identifier hs-var">ppr</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsInteger"><span class="hs-identifier hs-type">HsInteger</span></a></span><span> </span><span id="local-6989586621680884145"><span class="annot"><span class="annottext">XHsInteger (GhcPass p)
</span><a href="#local-6989586621680884145"><span class="hs-identifier hs-var">st</span></a></span></span><span> </span><span id="local-6989586621680884144"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884144"><span class="hs-identifier hs-var">i</span></a></span></span><span> </span><span class="annot"><span class="annottext">Type
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SourceText -&gt; SDoc -&gt; SDoc
</span><a href="GHC.Types.Basic.html#pprWithSourceText"><span class="hs-identifier hs-var">pprWithSourceText</span></a></span><span> </span><span class="annot"><span class="annottext">SourceText
XHsInteger (GhcPass p)
</span><a href="#local-6989586621680884145"><span class="hs-identifier hs-var">st</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#integer"><span class="hs-identifier hs-var">integer</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884144"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-238"></span><span>    </span><span class="annot"><a href="GHC.Utils.Outputable.html#ppr"><span class="hs-identifier hs-var">ppr</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsRat"><span class="hs-identifier hs-type">HsRat</span></a></span><span> </span><span class="annot"><span class="annottext">XHsRat (GhcPass p)
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884143"><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884143"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span class="annot"><span class="annottext">Type
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>       </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FractionalLit -&gt; SDoc
forall a. Outputable a =&gt; a -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#ppr"><span class="hs-identifier hs-var">ppr</span></a></span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884143"><span class="hs-identifier hs-var">f</span></a></span><span>
</span><span id="line-239"></span><span>    </span><span class="annot"><a href="GHC.Utils.Outputable.html#ppr"><span class="hs-identifier hs-var">ppr</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsFloatPrim"><span class="hs-identifier hs-type">HsFloatPrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsFloatPrim (GhcPass p)
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884142"><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884142"><span class="hs-identifier hs-var">f</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FractionalLit -&gt; SDoc
forall a. Outputable a =&gt; a -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#ppr"><span class="hs-identifier hs-var">ppr</span></a></span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884142"><span class="hs-identifier hs-var">f</span></a></span><span> </span><span class="annot"><span class="annottext">SDoc -&gt; SDoc -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#%3C%3E"><span class="hs-operator hs-var">&lt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">SDoc
</span><a href="GHC.Utils.Outputable.html#primFloatSuffix"><span class="hs-identifier hs-var">primFloatSuffix</span></a></span><span>
</span><span id="line-240"></span><span>    </span><span class="annot"><a href="GHC.Utils.Outputable.html#ppr"><span class="hs-identifier hs-var">ppr</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsDoublePrim"><span class="hs-identifier hs-type">HsDoublePrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsDoublePrim (GhcPass p)
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884139"><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884139"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">)</span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FractionalLit -&gt; SDoc
forall a. Outputable a =&gt; a -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#ppr"><span class="hs-identifier hs-var">ppr</span></a></span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884139"><span class="hs-identifier hs-var">d</span></a></span><span> </span><span class="annot"><span class="annottext">SDoc -&gt; SDoc -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#%3C%3E"><span class="hs-operator hs-var">&lt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">SDoc
</span><a href="GHC.Utils.Outputable.html#primDoubleSuffix"><span class="hs-identifier hs-var">primDoubleSuffix</span></a></span><span>
</span><span id="line-241"></span><span>    </span><span class="annot"><a href="GHC.Utils.Outputable.html#ppr"><span class="hs-identifier hs-var">ppr</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIntPrim"><span class="hs-identifier hs-type">HsIntPrim</span></a></span><span> </span><span id="local-6989586621680884137"><span class="annot"><span class="annottext">XHsIntPrim (GhcPass p)
</span><a href="#local-6989586621680884137"><span class="hs-identifier hs-var">st</span></a></span></span><span> </span><span id="local-6989586621680884136"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884136"><span class="hs-identifier hs-var">i</span></a></span></span><span class="hs-special">)</span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SourceText -&gt; SDoc -&gt; SDoc
</span><a href="GHC.Types.Basic.html#pprWithSourceText"><span class="hs-identifier hs-var">pprWithSourceText</span></a></span><span> </span><span class="annot"><span class="annottext">SourceText
XHsIntPrim (GhcPass p)
</span><a href="#local-6989586621680884137"><span class="hs-identifier hs-var">st</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#pprPrimInt"><span class="hs-identifier hs-var">pprPrimInt</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884136"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-242"></span><span>    </span><span class="annot"><a href="GHC.Utils.Outputable.html#ppr"><span class="hs-identifier hs-var">ppr</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsWordPrim"><span class="hs-identifier hs-type">HsWordPrim</span></a></span><span> </span><span id="local-6989586621680884134"><span class="annot"><span class="annottext">XHsWordPrim (GhcPass p)
</span><a href="#local-6989586621680884134"><span class="hs-identifier hs-var">st</span></a></span></span><span> </span><span id="local-6989586621680884133"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884133"><span class="hs-identifier hs-var">w</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SourceText -&gt; SDoc -&gt; SDoc
</span><a href="GHC.Types.Basic.html#pprWithSourceText"><span class="hs-identifier hs-var">pprWithSourceText</span></a></span><span> </span><span class="annot"><span class="annottext">SourceText
XHsWordPrim (GhcPass p)
</span><a href="#local-6989586621680884134"><span class="hs-identifier hs-var">st</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#pprPrimWord"><span class="hs-identifier hs-var">pprPrimWord</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884133"><span class="hs-identifier hs-var">w</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-243"></span><span>    </span><span class="annot"><a href="GHC.Utils.Outputable.html#ppr"><span class="hs-identifier hs-var">ppr</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsInt64Prim"><span class="hs-identifier hs-type">HsInt64Prim</span></a></span><span> </span><span id="local-6989586621680884131"><span class="annot"><span class="annottext">XHsInt64Prim (GhcPass p)
</span><a href="#local-6989586621680884131"><span class="hs-identifier hs-var">st</span></a></span></span><span> </span><span id="local-6989586621680884130"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884130"><span class="hs-identifier hs-var">i</span></a></span></span><span class="hs-special">)</span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SourceText -&gt; SDoc -&gt; SDoc -&gt; SDoc
</span><a href="GHC.Hs.Lit.html#pp_st_suffix"><span class="hs-identifier hs-var">pp_st_suffix</span></a></span><span> </span><span class="annot"><span class="annottext">SourceText
XHsInt64Prim (GhcPass p)
</span><a href="#local-6989586621680884131"><span class="hs-identifier hs-var">st</span></a></span><span> </span><span class="annot"><span class="annottext">SDoc
</span><a href="GHC.Utils.Outputable.html#primInt64Suffix"><span class="hs-identifier hs-var">primInt64Suffix</span></a></span><span>  </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#pprPrimInt64"><span class="hs-identifier hs-var">pprPrimInt64</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884130"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-244"></span><span>    </span><span class="annot"><a href="GHC.Utils.Outputable.html#ppr"><span class="hs-identifier hs-var">ppr</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsWord64Prim"><span class="hs-identifier hs-type">HsWord64Prim</span></a></span><span> </span><span id="local-6989586621680884127"><span class="annot"><span class="annottext">XHsWord64Prim (GhcPass p)
</span><a href="#local-6989586621680884127"><span class="hs-identifier hs-var">st</span></a></span></span><span> </span><span id="local-6989586621680884126"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884126"><span class="hs-identifier hs-var">w</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SourceText -&gt; SDoc -&gt; SDoc -&gt; SDoc
</span><a href="GHC.Hs.Lit.html#pp_st_suffix"><span class="hs-identifier hs-var">pp_st_suffix</span></a></span><span> </span><span class="annot"><span class="annottext">SourceText
XHsWord64Prim (GhcPass p)
</span><a href="#local-6989586621680884127"><span class="hs-identifier hs-var">st</span></a></span><span> </span><span class="annot"><span class="annottext">SDoc
</span><a href="GHC.Utils.Outputable.html#primWord64Suffix"><span class="hs-identifier hs-var">primWord64Suffix</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#pprPrimWord64"><span class="hs-identifier hs-var">pprPrimWord64</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884126"><span class="hs-identifier hs-var">w</span></a></span><span class="hs-special">)</span></span><span>
</span><span id="line-245"></span><span>
</span><span id="line-246"></span><span class="annot"><a href="GHC.Hs.Lit.html#pp_st_suffix"><span class="hs-identifier hs-type">pp_st_suffix</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Types.Basic.html#SourceText"><span class="hs-identifier hs-type">SourceText</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Utils.Outputable.html#SDoc"><span class="hs-identifier hs-type">SDoc</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Utils.Outputable.html#SDoc"><span class="hs-identifier hs-type">SDoc</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Utils.Outputable.html#SDoc"><span class="hs-identifier hs-type">SDoc</span></a></span><span>
</span><span id="line-247"></span><span id="pp_st_suffix"><span class="annot"><span class="annottext">pp_st_suffix :: SourceText -&gt; SDoc -&gt; SDoc -&gt; SDoc
</span><a href="GHC.Hs.Lit.html#pp_st_suffix"><span class="hs-identifier hs-var hs-var">pp_st_suffix</span></a></span></span><span> </span><span class="annot"><span class="annottext">SourceText
</span><a href="GHC.Types.Basic.html#NoSourceText"><span class="hs-identifier hs-var">NoSourceText</span></a></span><span>         </span><span class="annot"><span class="annottext">SDoc
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884122"><span class="annot"><span class="annottext">SDoc
</span><a href="#local-6989586621680884122"><span class="hs-identifier hs-var">doc</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SDoc
</span><a href="#local-6989586621680884122"><span class="hs-identifier hs-var">doc</span></a></span><span>
</span><span id="line-248"></span><span class="annot"><a href="GHC.Hs.Lit.html#pp_st_suffix"><span class="hs-identifier hs-var">pp_st_suffix</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Types.Basic.html#SourceText"><span class="hs-identifier hs-type">SourceText</span></a></span><span> </span><span id="local-6989586621680884120"><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621680884120"><span class="hs-identifier hs-var">st</span></a></span></span><span class="hs-special">)</span><span> </span><span id="local-6989586621680884119"><span class="annot"><span class="annottext">SDoc
</span><a href="#local-6989586621680884119"><span class="hs-identifier hs-var">suffix</span></a></span></span><span> </span><span class="annot"><span class="annottext">SDoc
</span><span class="hs-identifier">_</span></span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">String -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#text"><span class="hs-identifier hs-var">text</span></a></span><span> </span><span class="annot"><span class="annottext">String
</span><a href="#local-6989586621680884120"><span class="hs-identifier hs-var">st</span></a></span><span> </span><span class="annot"><span class="annottext">SDoc -&gt; SDoc -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#%3C%3E"><span class="hs-operator hs-var">&lt;&gt;</span></a></span><span> </span><span class="annot"><span class="annottext">SDoc
</span><a href="#local-6989586621680884119"><span class="hs-identifier hs-var">suffix</span></a></span><span>
</span><span id="line-249"></span><span>
</span><span id="line-250"></span><span class="hs-comment">-- in debug mode, print the expression that it's resolved to, too</span><span>
</span><span id="line-251"></span><span id="local-6989586621680884550"><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621680884115"><span class="annot"><a href="GHC.Hs.Extension.html#OutputableBndrId"><span class="hs-identifier hs-type">OutputableBndrId</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884550"><span class="hs-identifier hs-type">p</span></a></span><span>
</span><span id="line-252"></span><span>       </span><span class="hs-glyph">=&gt;</span><span> </span><span class="annot"><a href="GHC.Utils.Outputable.html#Outputable"><span class="hs-identifier hs-type">Outputable</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsOverLit"><span class="hs-identifier hs-type">HsOverLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#GhcPass"><span class="hs-identifier hs-type">GhcPass</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884550"><span class="hs-identifier hs-type">p</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-253"></span><span>  </span><span id="local-6989586621680884112"><span class="annot"><span class="annottext">ppr :: HsOverLit (GhcPass p) -&gt; SDoc
</span><a href="#local-6989586621680884112"><span class="hs-identifier hs-var hs-var hs-var hs-var">ppr</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#OverLit"><span class="hs-identifier hs-type">OverLit</span></a></span><span> </span><span class="hs-special">{</span><span class="annot"><span class="annottext">ol_val :: forall p. HsOverLit p -&gt; OverLitVal
</span><a href="GHC.Hs.Lit.html#ol_val"><span class="hs-identifier hs-var">ol_val</span></a></span><span class="hs-glyph">=</span><span id="local-6989586621680884111"><span class="annot"><span class="annottext">OverLitVal
</span><a href="#local-6989586621680884111"><span class="hs-identifier hs-var">val</span></a></span></span><span class="hs-special">,</span><span> </span><span class="annot"><span class="annottext">ol_witness :: forall p. HsOverLit p -&gt; HsExpr p
</span><a href="GHC.Hs.Lit.html#ol_witness"><span class="hs-identifier hs-var">ol_witness</span></a></span><span class="hs-glyph">=</span><span id="local-6989586621680884110"><span class="annot"><span class="annottext">HsExpr (GhcPass p)
</span><a href="#local-6989586621680884110"><span class="hs-identifier hs-var">witness</span></a></span></span><span class="hs-special">}</span><span class="hs-special">)</span><span>
</span><span id="line-254"></span><span>        </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">OverLitVal -&gt; SDoc
forall a. Outputable a =&gt; a -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#ppr"><span class="hs-identifier hs-var">ppr</span></a></span><span> </span><span class="annot"><span class="annottext">OverLitVal
</span><a href="#local-6989586621680884111"><span class="hs-identifier hs-var">val</span></a></span><span> </span><span class="annot"><span class="annottext">SDoc -&gt; SDoc -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#%3C%2B%3E"><span class="hs-operator hs-var">&lt;+&gt;</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">SDoc -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#whenPprDebug"><span class="hs-identifier hs-var">whenPprDebug</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">SDoc -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#parens"><span class="hs-identifier hs-var">parens</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">HsExpr (GhcPass p) -&gt; SDoc
forall (p :: Pass).
OutputableBndrId p =&gt;
HsExpr (GhcPass p) -&gt; SDoc
</span><a href="GHC.Hs.Expr.html#pprExpr"><span class="hs-identifier hs-var">pprExpr</span></a></span><span> </span><span class="annot"><span class="annottext">HsExpr (GhcPass p)
</span><a href="#local-6989586621680884110"><span class="hs-identifier hs-var">witness</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span class="hs-special">)</span></span><span>
</span><span id="line-255"></span><span>
</span><span id="line-256"></span><span class="hs-keyword">instance</span><span> </span><span id="local-6989586621680884104"><span class="annot"><a href="GHC.Utils.Outputable.html#Outputable"><span class="hs-identifier hs-type">Outputable</span></a></span><span> </span><span class="annot"><a href="GHC.Hs.Lit.html#OverLitVal"><span class="hs-identifier hs-type">OverLitVal</span></a></span></span><span> </span><span class="hs-keyword">where</span><span>
</span><span id="line-257"></span><span>  </span><span id="local-6989586621680884102"><span class="annot"><span class="annottext">ppr :: OverLitVal -&gt; SDoc
</span><a href="#local-6989586621680884102"><span class="hs-identifier hs-var hs-var hs-var hs-var">ppr</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIntegral"><span class="hs-identifier hs-type">HsIntegral</span></a></span><span> </span><span id="local-6989586621680884101"><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884101"><span class="hs-identifier hs-var">i</span></a></span></span><span class="hs-special">)</span><span>     </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SourceText -&gt; SDoc -&gt; SDoc
</span><a href="GHC.Types.Basic.html#pprWithSourceText"><span class="hs-identifier hs-var">pprWithSourceText</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">IntegralLit -&gt; SourceText
</span><a href="GHC.Types.Basic.html#il_text"><span class="hs-identifier hs-var hs-var">il_text</span></a></span><span> </span><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884101"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">Integer -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#integer"><span class="hs-identifier hs-var">integer</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">IntegralLit -&gt; Integer
</span><a href="GHC.Types.Basic.html#il_value"><span class="hs-identifier hs-var hs-var">il_value</span></a></span><span> </span><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884101"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">)</span><span class="hs-special">)</span><span>
</span><span id="line-258"></span><span>  </span><span class="annot"><a href="GHC.Utils.Outputable.html#ppr"><span class="hs-identifier hs-var">ppr</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsFractional"><span class="hs-identifier hs-type">HsFractional</span></a></span><span> </span><span id="local-6989586621680884100"><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884100"><span class="hs-identifier hs-var">f</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FractionalLit -&gt; SDoc
forall a. Outputable a =&gt; a -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#ppr"><span class="hs-identifier hs-var">ppr</span></a></span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884100"><span class="hs-identifier hs-var">f</span></a></span><span>
</span><span id="line-259"></span><span>  </span><span class="annot"><a href="GHC.Utils.Outputable.html#ppr"><span class="hs-identifier hs-var">ppr</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIsString"><span class="hs-identifier hs-type">HsIsString</span></a></span><span> </span><span id="local-6989586621680884099"><span class="annot"><span class="annottext">SourceText
</span><a href="#local-6989586621680884099"><span class="hs-identifier hs-var">st</span></a></span></span><span> </span><span id="local-6989586621680884098"><span class="annot"><span class="annottext">FastString
</span><a href="#local-6989586621680884098"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-special">)</span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SourceText -&gt; SDoc -&gt; SDoc
</span><a href="GHC.Types.Basic.html#pprWithSourceText"><span class="hs-identifier hs-var">pprWithSourceText</span></a></span><span> </span><span class="annot"><span class="annottext">SourceText
</span><a href="#local-6989586621680884099"><span class="hs-identifier hs-var">st</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FastString -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#pprHsString"><span class="hs-identifier hs-var">pprHsString</span></a></span><span> </span><span class="annot"><span class="annottext">FastString
</span><a href="#local-6989586621680884098"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-260"></span><span>
</span><span id="line-261"></span><span class="hs-comment">-- | pmPprHsLit pretty prints literals and is used when pretty printing pattern</span><span>
</span><span id="line-262"></span><span class="hs-comment">-- match warnings. All are printed the same (i.e., without hashes if they are</span><span>
</span><span id="line-263"></span><span class="hs-comment">-- primitive and not wrapped in constructors if they are boxed). This happens</span><span>
</span><span id="line-264"></span><span class="hs-comment">-- mainly for too reasons:</span><span>
</span><span id="line-265"></span><span class="hs-comment">--  * We do not want to expose their internal representation</span><span>
</span><span id="line-266"></span><span class="hs-comment">--  * The warnings become too messy</span><span>
</span><span id="line-267"></span><span id="local-6989586621680884097"><span class="annot"><a href="GHC.Hs.Lit.html#pmPprHsLit"><span class="hs-identifier hs-type">pmPprHsLit</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Hs.Lit.html#HsLit"><span class="hs-identifier hs-type">HsLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Extension.html#GhcPass"><span class="hs-identifier hs-type">GhcPass</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884097"><span class="hs-identifier hs-type">x</span></a></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Utils.Outputable.html#SDoc"><span class="hs-identifier hs-type">SDoc</span></a></span></span><span>
</span><span id="line-268"></span><span id="pmPprHsLit"><span class="annot"><span class="annottext">pmPprHsLit :: forall (p :: Pass). HsLit (GhcPass p) -&gt; SDoc
</span><a href="GHC.Hs.Lit.html#pmPprHsLit"><span class="hs-identifier hs-var hs-var">pmPprHsLit</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsChar"><span class="hs-identifier hs-type">HsChar</span></a></span><span> </span><span class="annot"><span class="annottext">XHsChar (GhcPass x)
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884092"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621680884092"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">)</span><span>       </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Char -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#pprHsChar"><span class="hs-identifier hs-var">pprHsChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621680884092"><span class="hs-identifier hs-var">c</span></a></span><span>
</span><span id="line-269"></span><span class="annot"><a href="GHC.Hs.Lit.html#pmPprHsLit"><span class="hs-identifier hs-var">pmPprHsLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsCharPrim"><span class="hs-identifier hs-type">HsCharPrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsCharPrim (GhcPass x)
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884091"><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621680884091"><span class="hs-identifier hs-var">c</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Char -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#pprHsChar"><span class="hs-identifier hs-var">pprHsChar</span></a></span><span> </span><span class="annot"><span class="annottext">Char
</span><a href="#local-6989586621680884091"><span class="hs-identifier hs-var">c</span></a></span><span>
</span><span id="line-270"></span><span class="annot"><a href="GHC.Hs.Lit.html#pmPprHsLit"><span class="hs-identifier hs-var">pmPprHsLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsString"><span class="hs-identifier hs-type">HsString</span></a></span><span> </span><span id="local-6989586621680884090"><span class="annot"><span class="annottext">XHsString (GhcPass x)
</span><a href="#local-6989586621680884090"><span class="hs-identifier hs-var">st</span></a></span></span><span> </span><span id="local-6989586621680884089"><span class="annot"><span class="annottext">FastString
</span><a href="#local-6989586621680884089"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-special">)</span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">SourceText -&gt; SDoc -&gt; SDoc
</span><a href="GHC.Types.Basic.html#pprWithSourceText"><span class="hs-identifier hs-var">pprWithSourceText</span></a></span><span> </span><span class="annot"><span class="annottext">SourceText
XHsString (GhcPass x)
</span><a href="#local-6989586621680884090"><span class="hs-identifier hs-var">st</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">FastString -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#pprHsString"><span class="hs-identifier hs-var">pprHsString</span></a></span><span> </span><span class="annot"><span class="annottext">FastString
</span><a href="#local-6989586621680884089"><span class="hs-identifier hs-var">s</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-271"></span><span class="annot"><a href="GHC.Hs.Lit.html#pmPprHsLit"><span class="hs-identifier hs-var">pmPprHsLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsStringPrim"><span class="hs-identifier hs-type">HsStringPrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsStringPrim (GhcPass x)
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884088"><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621680884088"><span class="hs-identifier hs-var">s</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">ByteString -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#pprHsBytes"><span class="hs-identifier hs-var">pprHsBytes</span></a></span><span> </span><span class="annot"><span class="annottext">ByteString
</span><a href="#local-6989586621680884088"><span class="hs-identifier hs-var">s</span></a></span><span>
</span><span id="line-272"></span><span class="annot"><a href="GHC.Hs.Lit.html#pmPprHsLit"><span class="hs-identifier hs-var">pmPprHsLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsInt"><span class="hs-identifier hs-type">HsInt</span></a></span><span> </span><span class="annot"><span class="annottext">XHsInt (GhcPass x)
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884087"><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884087"><span class="hs-identifier hs-var">i</span></a></span></span><span class="hs-special">)</span><span>        </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#integer"><span class="hs-identifier hs-var">integer</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><span class="annottext">IntegralLit -&gt; Integer
</span><a href="GHC.Types.Basic.html#il_value"><span class="hs-identifier hs-var hs-var">il_value</span></a></span><span> </span><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884087"><span class="hs-identifier hs-var">i</span></a></span><span class="hs-special">)</span><span>
</span><span id="line-273"></span><span class="annot"><a href="GHC.Hs.Lit.html#pmPprHsLit"><span class="hs-identifier hs-var">pmPprHsLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIntPrim"><span class="hs-identifier hs-type">HsIntPrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsIntPrim (GhcPass x)
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884086"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884086"><span class="hs-identifier hs-var">i</span></a></span></span><span class="hs-special">)</span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#integer"><span class="hs-identifier hs-var">integer</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884086"><span class="hs-identifier hs-var">i</span></a></span><span>
</span><span id="line-274"></span><span class="annot"><a href="GHC.Hs.Lit.html#pmPprHsLit"><span class="hs-identifier hs-var">pmPprHsLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsWordPrim"><span class="hs-identifier hs-type">HsWordPrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsWordPrim (GhcPass x)
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884085"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884085"><span class="hs-identifier hs-var">w</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#integer"><span class="hs-identifier hs-var">integer</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884085"><span class="hs-identifier hs-var">w</span></a></span><span>
</span><span id="line-275"></span><span class="annot"><a href="GHC.Hs.Lit.html#pmPprHsLit"><span class="hs-identifier hs-var">pmPprHsLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsInt64Prim"><span class="hs-identifier hs-type">HsInt64Prim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsInt64Prim (GhcPass x)
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884084"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884084"><span class="hs-identifier hs-var">i</span></a></span></span><span class="hs-special">)</span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#integer"><span class="hs-identifier hs-var">integer</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884084"><span class="hs-identifier hs-var">i</span></a></span><span>
</span><span id="line-276"></span><span class="annot"><a href="GHC.Hs.Lit.html#pmPprHsLit"><span class="hs-identifier hs-var">pmPprHsLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsWord64Prim"><span class="hs-identifier hs-type">HsWord64Prim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsWord64Prim (GhcPass x)
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884083"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884083"><span class="hs-identifier hs-var">w</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#integer"><span class="hs-identifier hs-var">integer</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884083"><span class="hs-identifier hs-var">w</span></a></span><span>
</span><span id="line-277"></span><span class="annot"><a href="GHC.Hs.Lit.html#pmPprHsLit"><span class="hs-identifier hs-var">pmPprHsLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsInteger"><span class="hs-identifier hs-type">HsInteger</span></a></span><span> </span><span class="annot"><span class="annottext">XHsInteger (GhcPass x)
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884082"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884082"><span class="hs-identifier hs-var">i</span></a></span></span><span> </span><span class="annot"><span class="annottext">Type
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Integer -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#integer"><span class="hs-identifier hs-var">integer</span></a></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884082"><span class="hs-identifier hs-var">i</span></a></span><span>
</span><span id="line-278"></span><span class="annot"><a href="GHC.Hs.Lit.html#pmPprHsLit"><span class="hs-identifier hs-var">pmPprHsLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsRat"><span class="hs-identifier hs-type">HsRat</span></a></span><span> </span><span class="annot"><span class="annottext">XHsRat (GhcPass x)
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884081"><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884081"><span class="hs-identifier hs-var">f</span></a></span></span><span> </span><span class="annot"><span class="annottext">Type
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FractionalLit -&gt; SDoc
forall a. Outputable a =&gt; a -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#ppr"><span class="hs-identifier hs-var">ppr</span></a></span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884081"><span class="hs-identifier hs-var">f</span></a></span><span>
</span><span id="line-279"></span><span class="annot"><a href="GHC.Hs.Lit.html#pmPprHsLit"><span class="hs-identifier hs-var">pmPprHsLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsFloatPrim"><span class="hs-identifier hs-type">HsFloatPrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsFloatPrim (GhcPass x)
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884080"><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884080"><span class="hs-identifier hs-var">f</span></a></span></span><span class="hs-special">)</span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FractionalLit -&gt; SDoc
forall a. Outputable a =&gt; a -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#ppr"><span class="hs-identifier hs-var">ppr</span></a></span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884080"><span class="hs-identifier hs-var">f</span></a></span><span>
</span><span id="line-280"></span><span class="annot"><a href="GHC.Hs.Lit.html#pmPprHsLit"><span class="hs-identifier hs-var">pmPprHsLit</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsDoublePrim"><span class="hs-identifier hs-type">HsDoublePrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsDoublePrim (GhcPass x)
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884079"><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884079"><span class="hs-identifier hs-var">d</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">FractionalLit -&gt; SDoc
forall a. Outputable a =&gt; a -&gt; SDoc
</span><a href="GHC.Utils.Outputable.html#ppr"><span class="hs-identifier hs-var">ppr</span></a></span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884079"><span class="hs-identifier hs-var">d</span></a></span><span>
</span><span id="line-281"></span><span>
</span><span id="line-282"></span><span class="hs-comment">-- | @'hsLitNeedsParens' p l@ returns 'True' if a literal @l@ needs</span><span>
</span><span id="line-283"></span><span class="hs-comment">-- to be parenthesized under precedence @p@.</span><span>
</span><span id="line-284"></span><span id="local-6989586621680884546"><span class="annot"><a href="GHC.Hs.Lit.html#hsLitNeedsParens"><span class="hs-identifier hs-type">hsLitNeedsParens</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Types.Basic.html#PprPrec"><span class="hs-identifier hs-type">PprPrec</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Hs.Lit.html#HsLit"><span class="hs-identifier hs-type">HsLit</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884546"><span class="hs-identifier hs-type">x</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span></span><span>
</span><span id="line-285"></span><span id="hsLitNeedsParens"><span class="annot"><span class="annottext">hsLitNeedsParens :: forall x. PprPrec -&gt; HsLit x -&gt; Bool
</span><a href="GHC.Hs.Lit.html#hsLitNeedsParens"><span class="hs-identifier hs-var hs-var">hsLitNeedsParens</span></a></span></span><span> </span><span id="local-6989586621680884061"><span class="annot"><span class="annottext">PprPrec
</span><a href="#local-6989586621680884061"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">HsLit x -&gt; Bool
</span><a href="#local-6989586621680884060"><span class="hs-identifier hs-var">go</span></a></span><span>
</span><span id="line-286"></span><span>  </span><span class="hs-keyword">where</span><span>
</span><span id="line-287"></span><span>    </span><span id="local-6989586621680884060"><span class="annot"><span class="annottext">go :: HsLit x -&gt; Bool
</span><a href="#local-6989586621680884060"><span class="hs-identifier hs-var hs-var">go</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsChar"><span class="hs-identifier hs-type">HsChar</span></a></span><span> </span><span class="hs-special">{</span><span class="hs-special">}</span><span class="hs-special">)</span><span>        </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span>
</span><span id="line-288"></span><span>    </span><span class="annot"><a href="#local-6989586621680884060"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsCharPrim"><span class="hs-identifier hs-type">HsCharPrim</span></a></span><span> </span><span class="hs-special">{</span><span class="hs-special">}</span><span class="hs-special">)</span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span>
</span><span id="line-289"></span><span>    </span><span class="annot"><a href="#local-6989586621680884060"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsString"><span class="hs-identifier hs-type">HsString</span></a></span><span> </span><span class="hs-special">{</span><span class="hs-special">}</span><span class="hs-special">)</span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span>
</span><span id="line-290"></span><span>    </span><span class="annot"><a href="#local-6989586621680884060"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsStringPrim"><span class="hs-identifier hs-type">HsStringPrim</span></a></span><span> </span><span class="hs-special">{</span><span class="hs-special">}</span><span class="hs-special">)</span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span>
</span><span id="line-291"></span><span>    </span><span class="annot"><a href="#local-6989586621680884060"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsInt"><span class="hs-identifier hs-type">HsInt</span></a></span><span> </span><span class="annot"><span class="annottext">XHsInt x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884059"><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884059"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span>        </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PprPrec
</span><a href="#local-6989586621680884061"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">PprPrec -&gt; PprPrec -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&gt;</span></span><span> </span><span class="annot"><span class="annottext">PprPrec
</span><a href="GHC.Types.Basic.html#topPrec"><span class="hs-identifier hs-var">topPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Bool -&gt; Bool
</span><span class="hs-operator hs-var">&amp;&amp;</span></span><span> </span><span class="annot"><span class="annottext">IntegralLit -&gt; Bool
</span><a href="GHC.Types.Basic.html#il_neg"><span class="hs-identifier hs-var hs-var">il_neg</span></a></span><span> </span><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884059"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-292"></span><span>    </span><span class="annot"><a href="#local-6989586621680884060"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIntPrim"><span class="hs-identifier hs-type">HsIntPrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsIntPrim x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884055"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884055"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PprPrec
</span><a href="#local-6989586621680884061"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">PprPrec -&gt; PprPrec -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&gt;</span></span><span> </span><span class="annot"><span class="annottext">PprPrec
</span><a href="GHC.Types.Basic.html#topPrec"><span class="hs-identifier hs-var">topPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Bool -&gt; Bool
</span><span class="hs-operator hs-var">&amp;&amp;</span></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884055"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&lt;</span></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">0</span></span><span>
</span><span id="line-293"></span><span>    </span><span class="annot"><a href="#local-6989586621680884060"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsWordPrim"><span class="hs-identifier hs-type">HsWordPrim</span></a></span><span> </span><span class="hs-special">{</span><span class="hs-special">}</span><span class="hs-special">)</span><span>    </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span>
</span><span id="line-294"></span><span>    </span><span class="annot"><a href="#local-6989586621680884060"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsInt64Prim"><span class="hs-identifier hs-type">HsInt64Prim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsInt64Prim x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884053"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884053"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PprPrec
</span><a href="#local-6989586621680884061"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">PprPrec -&gt; PprPrec -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&gt;</span></span><span> </span><span class="annot"><span class="annottext">PprPrec
</span><a href="GHC.Types.Basic.html#topPrec"><span class="hs-identifier hs-var">topPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Bool -&gt; Bool
</span><span class="hs-operator hs-var">&amp;&amp;</span></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884053"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&lt;</span></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">0</span></span><span>
</span><span id="line-295"></span><span>    </span><span class="annot"><a href="#local-6989586621680884060"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsWord64Prim"><span class="hs-identifier hs-type">HsWord64Prim</span></a></span><span> </span><span class="hs-special">{</span><span class="hs-special">}</span><span class="hs-special">)</span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span>
</span><span id="line-296"></span><span>    </span><span class="annot"><a href="#local-6989586621680884060"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsInteger"><span class="hs-identifier hs-type">HsInteger</span></a></span><span> </span><span class="annot"><span class="annottext">XHsInteger x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884052"><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884052"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="annot"><span class="annottext">Type
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PprPrec
</span><a href="#local-6989586621680884061"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">PprPrec -&gt; PprPrec -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&gt;</span></span><span> </span><span class="annot"><span class="annottext">PprPrec
</span><a href="GHC.Types.Basic.html#topPrec"><span class="hs-identifier hs-var">topPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Bool -&gt; Bool
</span><span class="hs-operator hs-var">&amp;&amp;</span></span><span> </span><span class="annot"><span class="annottext">Integer
</span><a href="#local-6989586621680884052"><span class="hs-identifier hs-var">x</span></a></span><span> </span><span class="annot"><span class="annottext">Integer -&gt; Integer -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&lt;</span></span><span> </span><span class="annot"><span class="annottext">Integer
</span><span class="hs-number">0</span></span><span>
</span><span id="line-297"></span><span>    </span><span class="annot"><a href="#local-6989586621680884060"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsRat"><span class="hs-identifier hs-type">HsRat</span></a></span><span> </span><span class="annot"><span class="annottext">XHsRat x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884051"><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884051"><span class="hs-identifier hs-var">x</span></a></span></span><span> </span><span class="annot"><span class="annottext">Type
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>      </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PprPrec
</span><a href="#local-6989586621680884061"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">PprPrec -&gt; PprPrec -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&gt;</span></span><span> </span><span class="annot"><span class="annottext">PprPrec
</span><a href="GHC.Types.Basic.html#topPrec"><span class="hs-identifier hs-var">topPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Bool -&gt; Bool
</span><span class="hs-operator hs-var">&amp;&amp;</span></span><span> </span><span class="annot"><span class="annottext">FractionalLit -&gt; Bool
</span><a href="GHC.Types.Basic.html#fl_neg"><span class="hs-identifier hs-var hs-var">fl_neg</span></a></span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884051"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-298"></span><span>    </span><span class="annot"><a href="#local-6989586621680884060"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsFloatPrim"><span class="hs-identifier hs-type">HsFloatPrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsFloatPrim x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884049"><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884049"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PprPrec
</span><a href="#local-6989586621680884061"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">PprPrec -&gt; PprPrec -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&gt;</span></span><span> </span><span class="annot"><span class="annottext">PprPrec
</span><a href="GHC.Types.Basic.html#topPrec"><span class="hs-identifier hs-var">topPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Bool -&gt; Bool
</span><span class="hs-operator hs-var">&amp;&amp;</span></span><span> </span><span class="annot"><span class="annottext">FractionalLit -&gt; Bool
</span><a href="GHC.Types.Basic.html#fl_neg"><span class="hs-identifier hs-var hs-var">fl_neg</span></a></span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884049"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-299"></span><span>    </span><span class="annot"><a href="#local-6989586621680884060"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsDoublePrim"><span class="hs-identifier hs-type">HsDoublePrim</span></a></span><span> </span><span class="annot"><span class="annottext">XHsDoublePrim x
</span><span class="hs-identifier">_</span></span><span> </span><span id="local-6989586621680884048"><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884048"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PprPrec
</span><a href="#local-6989586621680884061"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">PprPrec -&gt; PprPrec -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&gt;</span></span><span> </span><span class="annot"><span class="annottext">PprPrec
</span><a href="GHC.Types.Basic.html#topPrec"><span class="hs-identifier hs-var">topPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Bool -&gt; Bool
</span><span class="hs-operator hs-var">&amp;&amp;</span></span><span> </span><span class="annot"><span class="annottext">FractionalLit -&gt; Bool
</span><a href="GHC.Types.Basic.html#fl_neg"><span class="hs-identifier hs-var hs-var">fl_neg</span></a></span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884048"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-300"></span><span>    </span><span class="annot"><a href="#local-6989586621680884060"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#XLit"><span class="hs-identifier hs-type">XLit</span></a></span><span> </span><span class="annot"><span class="annottext">XXLit x
</span><span class="hs-identifier">_</span></span><span class="hs-special">)</span><span>           </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span>
</span><span id="line-301"></span><span>
</span><span id="line-302"></span><span class="hs-comment">-- | @'hsOverLitNeedsParens' p ol@ returns 'True' if an overloaded literal</span><span>
</span><span id="line-303"></span><span class="hs-comment">-- @ol@ needs to be parenthesized under precedence @p@.</span><span>
</span><span id="line-304"></span><span id="local-6989586621680884543"><span class="annot"><a href="GHC.Hs.Lit.html#hsOverLitNeedsParens"><span class="hs-identifier hs-type">hsOverLitNeedsParens</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Types.Basic.html#PprPrec"><span class="hs-identifier hs-type">PprPrec</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><a href="GHC.Hs.Lit.html#HsOverLit"><span class="hs-identifier hs-type">HsOverLit</span></a></span><span> </span><span class="annot"><a href="#local-6989586621680884543"><span class="hs-identifier hs-type">x</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span></span><span>
</span><span id="line-305"></span><span id="hsOverLitNeedsParens"><span class="annot"><span class="annottext">hsOverLitNeedsParens :: forall x. PprPrec -&gt; HsOverLit x -&gt; Bool
</span><a href="GHC.Hs.Lit.html#hsOverLitNeedsParens"><span class="hs-identifier hs-var hs-var">hsOverLitNeedsParens</span></a></span></span><span> </span><span id="local-6989586621680884044"><span class="annot"><span class="annottext">PprPrec
</span><a href="#local-6989586621680884044"><span class="hs-identifier hs-var">p</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#OverLit"><span class="hs-identifier hs-type">OverLit</span></a></span><span> </span><span class="hs-special">{</span><span> </span><span class="annot"><span class="annottext">ol_val :: forall p. HsOverLit p -&gt; OverLitVal
</span><a href="GHC.Hs.Lit.html#ol_val"><span class="hs-identifier hs-var">ol_val</span></a></span><span> </span><span class="hs-glyph">=</span><span> </span><span id="local-6989586621680884043"><span class="annot"><span class="annottext">OverLitVal
</span><a href="#local-6989586621680884043"><span class="hs-identifier hs-var">olv</span></a></span></span><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">OverLitVal -&gt; Bool
</span><a href="#local-6989586621680884042"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="annot"><span class="annottext">OverLitVal
</span><a href="#local-6989586621680884043"><span class="hs-identifier hs-var">olv</span></a></span><span>
</span><span id="line-306"></span><span>  </span><span class="hs-keyword">where</span><span>
</span><span id="line-307"></span><span>    </span><span class="annot"><a href="#local-6989586621680884042"><span class="hs-identifier hs-type">go</span></a></span><span> </span><span class="hs-glyph">::</span><span> </span><span class="annot"><a href="GHC.Hs.Lit.html#OverLitVal"><span class="hs-identifier hs-type">OverLitVal</span></a></span><span> </span><span class="hs-glyph">-&gt;</span><span> </span><span class="annot"><span class="hs-identifier hs-type">Bool</span></span><span>
</span><span id="line-308"></span><span>    </span><span id="local-6989586621680884042"><span class="annot"><span class="annottext">go :: OverLitVal -&gt; Bool
</span><a href="#local-6989586621680884042"><span class="hs-identifier hs-var hs-var">go</span></a></span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIntegral"><span class="hs-identifier hs-type">HsIntegral</span></a></span><span> </span><span id="local-6989586621680884041"><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884041"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span>   </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PprPrec
</span><a href="#local-6989586621680884044"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">PprPrec -&gt; PprPrec -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&gt;</span></span><span> </span><span class="annot"><span class="annottext">PprPrec
</span><a href="GHC.Types.Basic.html#topPrec"><span class="hs-identifier hs-var">topPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Bool -&gt; Bool
</span><span class="hs-operator hs-var">&amp;&amp;</span></span><span> </span><span class="annot"><span class="annottext">IntegralLit -&gt; Bool
</span><a href="GHC.Types.Basic.html#il_neg"><span class="hs-identifier hs-var hs-var">il_neg</span></a></span><span> </span><span class="annot"><span class="annottext">IntegralLit
</span><a href="#local-6989586621680884041"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-309"></span><span>    </span><span class="annot"><a href="#local-6989586621680884042"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsFractional"><span class="hs-identifier hs-type">HsFractional</span></a></span><span> </span><span id="local-6989586621680884040"><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884040"><span class="hs-identifier hs-var">x</span></a></span></span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">PprPrec
</span><a href="#local-6989586621680884044"><span class="hs-identifier hs-var">p</span></a></span><span> </span><span class="annot"><span class="annottext">PprPrec -&gt; PprPrec -&gt; Bool
forall a. Ord a =&gt; a -&gt; a -&gt; Bool
</span><span class="hs-operator hs-var">&gt;</span></span><span> </span><span class="annot"><span class="annottext">PprPrec
</span><a href="GHC.Types.Basic.html#topPrec"><span class="hs-identifier hs-var">topPrec</span></a></span><span> </span><span class="annot"><span class="annottext">Bool -&gt; Bool -&gt; Bool
</span><span class="hs-operator hs-var">&amp;&amp;</span></span><span> </span><span class="annot"><span class="annottext">FractionalLit -&gt; Bool
</span><a href="GHC.Types.Basic.html#fl_neg"><span class="hs-identifier hs-var hs-var">fl_neg</span></a></span><span> </span><span class="annot"><span class="annottext">FractionalLit
</span><a href="#local-6989586621680884040"><span class="hs-identifier hs-var">x</span></a></span><span>
</span><span id="line-310"></span><span>    </span><span class="annot"><a href="#local-6989586621680884042"><span class="hs-identifier hs-var">go</span></a></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#HsIsString"><span class="hs-identifier hs-type">HsIsString</span></a></span><span> </span><span class="hs-special">{</span><span class="hs-special">}</span><span class="hs-special">)</span><span>  </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span>
</span><span id="line-311"></span><span class="annot"><a href="GHC.Hs.Lit.html#hsOverLitNeedsParens"><span class="hs-identifier hs-var">hsOverLitNeedsParens</span></a></span><span> </span><span class="annot"><span class="annottext">PprPrec
</span><span class="hs-identifier">_</span></span><span> </span><span class="hs-special">(</span><span class="annot"><a href="GHC.Hs.Lit.html#XOverLit"><span class="hs-identifier hs-type">XOverLit</span></a></span><span> </span><span class="hs-special">{</span><span> </span><span class="hs-special">}</span><span class="hs-special">)</span><span> </span><span class="hs-glyph">=</span><span> </span><span class="annot"><span class="annottext">Bool
</span><span class="hs-identifier hs-var">False</span></span><span>
</span><span id="line-312"></span></pre></body></html>